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1 . ABSTRACT 

THIS PROGRAM CONTAINS A SERIES OF TESTS THAT WILL VERIFY THAT 
THE DISK IS CAPABLE OF PERFORMING SEEKS, THAT THE SEEK TIMES 
ARE WITHIN TOLERANCE AND THAT THE T^ACK/SECTOR ADDRESSING 
CIRCUITRY OPERATES PROPERLY. THIS PROGRAM IS PRIMARILY USED 
TO DETERMINE IF THE SEEK TIMES ARE WITHIN TOLERANCES AND NOT 
FOR DATA RELIABLITY. THERE IS ABSOLUTELY NO WRITTING OF DATA 
INVOLVED IN THIS PROGRAM. HOWEVER, THIS PROGRAM DOES PERFORM 
READ HEADER AND DATA COMMANDS TO DETERMINE IF THE SEEKS 
PERFORMED ARE VALID. 


2. REQUIREMENTS 

2.1 EQUIPMENT 

PDP-11 PROCESSOR 
12K MEMORY 
TERMINAL 

PROGRAM LOADING DEVICE 

KW11-L OR KW11-P (THE KW11-P IS REQUIRED FOR THE TIMING TESTS) 

RH70 CONTROLLER 
1 TO 8 RM80 DISK DRIVES 

2.2 PRELIMINARY PROGRAMS 

RM80 DISKLESS TEST, PART 1 fc 2 
RM80 FUNCTIONAL TEST, PART 1,283 

2.3 MEDIA 

THE PROGRAM REQUIRES THAT EACH DRIVE TO BE TESTED HAS A FORMATTED 
DISK. THE DISK MAY BE FORMATTED IN EITHER 16-BIT OR 18-BIT 
MODE DEPENDING ON THE TESTING REQUIREMENTS . NOTE THAT THEPROGRAM 
WILL NOT TEST A MIXTURE OF DRIVES WITH BOTH 16 AND 18 BIT MODE 
PACKS. 


LOADING PROCEDURE 

THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER 
OR IT MAYBE LOADED FROM THE APPROPRIATE 'XXDP' MEDIA USING THE 
ASSOCAI TED LOADER. THE PROGRAM MAY BE INCLUDED IN AN 'XXDP' CHAIN. 


STARTING PROCEDURE 
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4.1 STARTING ADDRESSES 

200 NORMAL STARTING ADDRESS 

204 SELECT OPERATING PARAMETERS 

210 SELECT RH CONTROLLER ADDRESSES 

214 COMBINATION OF 204 AND 210 

NOTE: STARTING ADDRESSES 210 AND 214 ARE AVAILABLE WHEN THE 
PROGRAM IS INITIALLY STARTED: THESE STARTING ADDRESSES ARE 
TREATED AS ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS. 

4.2 OPERATOR ACTION 

1. LOAD PROGRAM INTO MEMORY (SEE SECTION 3.) 

2. BRING DRIVE(S) TO ONLINE STATE, WRITE ENABLED, AND LOCKED ON PORT. 

3. LOAD ADDRESS 200. 

4. SET SWITCHES (SEE SECTION 5.) 

5 PRESS START 

6 . THE PROGRAM*WILL TYPEOUT THE STATUS OF THE DRIVES ATTACHED TO 
THE SELECTED MASSBUS SUBSYSTEM. TO INHIBIT THIS TYPEOUT, DO NOT 
RESTART THE PROGRAM FROM ANY OF THE STARTING ADDRESSES; INSTEAD 
TYPE A ’CONTROL C’ ON THE KEYBOARD TO RETURN THE PROGRAM TO 
COMMAND ENTRY MODE. 

4.3 PROGRAM ACTION 

IN AN EFFORT TO ALLOW CONVERSATION WITH A PROGRAM FOR THE 
PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWING 
CONSTRUCTIONS HAVE BEEN ADOPTED. 

N0TE1 : IN ALL EXAMPLES BRACKETS ARE USED FOR CLARITY AND ARE 
NOT TYPED BY THE USER. 

N0TE2: THE CARRRIAGE RETURN TYPED BY THE USER IS INDICATED BY 

<CR> AND WILL BE ECHOED AS A 'CARRIAGE RETURN-LINE FEED*. 

<.XCR> PERIOD 

A STATEMENT TERMINATOR: WHEN TYPED AT THE 
END OF A LINE (LEGAL ON ALL LINES) IT TELLS 
THE PARAMETER STRING INTERPRETER (PSI) THIS IS 
THE END OF CHANGES TO THE CURRENT PARAMETER 
STRING. 

<..XCR> PERIOD PERIOD 

THE ’PERIOD PERIOD’ TERMINATOR IS TYPED TO INDICATE 
THE END OF TEST PARAMETER MODIFICATION AND TO SIGNAL 
THE START OF TEST EXECUTION. 

<.XCR> COMMA 

THE COMMA IS USED AS A SEPARATOR BETWEEN DRIVE NUMBERS 
AND TEST NUMBERS. 

</> 


SLASH 
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A MODIFICATION INDICATOR: IF A SLASH FOLLOWS A TEST 
NUMBER. THE PROGRAM WILL OPEN THAT TEST FOR PARAMETER 
MODIFICATION. 

CONTROL-U 

DELETE THE PRESENT INPUT STRING AND START A NEW 
LINE. TYPED BY DEPRESSING THE "CONTROL KEY" 

(CTRL) AND THEN STRIKING THE 'V. 

RUBOUT 

DELETE THE LAST CHARACTER FROM THE INPUT STRING. 

TYPED BY STRIKING THE ’ftUBOUT" KEY. WHICH WILL 
BE ECHOED BY A BACKSLASH (\) FOLLOWED BY THE 
CHARACTER DELETED. 


4.3.1 CONTROL SWITCH SELECTION 

STARTING THE PROGRAM AT ANY OF THE POSSIBLE STARTING ADDRESSES 
WITH SW<07>=1 WILL RESULT IN ENTERING THE "CONTROL SWITCH 
SETTING" MODE. THUS. ALLOWING THE OPERATOR TO SPECIFY THE 
DESIRED STATE OF "C.SWR". 

CONTROL SWITCH SELECTION EXAMPLES: 

EXAMPLE #1 

SET SW<07>=0 
C.SWR=000000 / 400.. 

EXAMPLE #2 

SET SW<07>=0 
C.SWR=000000 / 220. 

C.SWft-000000 / 220.. 

4.3.2 RH CONTROLLER ADDRESS SELECTION 

STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECT OF THE DEFAULT VALUES OF BUS ADDRESS (RMCS1) . 

AND VECTOR ADDRESS OF THE RH CONTROLLER. IF THE DEFAULT 
VAULE OF THE BUS ADDRESS DOES NOT RESPOND (TIMES OUT) 

WHEN ADDRESSED. AN ERROR IS REPORTED. AFTER THE ERROR 
IS REPORTED ONE OF TWO COURSES OF ACTION WILL BE TAKEN: 

1. IF THERE IS A MONITOR — RETURN TO THE MONITOR 

2. IF THERE ISN'T A MONITOR — ASK FOR NEW ADDRESSES 

STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
TO CHANGE THE ADDRESS OF THE RH CONTROLLER AND THE VECTOR 
ADDRESS. 


ADDRESS SELECTION EXAMPLES 
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EXAMPLE #1 

RMCS1 =176700 / 177200. 

EXAMPLE #2 

RMCS1 =176700 / 176300<CR> 

RMVEC=254 / 260<CR> 

EXAMPLE #3 

RMCS1=176700<CR> 

RMVEC=254 / 260. 

EXAMPLE #4 

RH/RM FAILED TO RESPOND TO ADDRESSING 

RMCS1 ERR PC 

176300 XXXXXX 

RMCS1 =176300 / 176700. 

EXAMPLE #5 

RMCS1=1 76700 / 1776\67\6300<CR> 

RMVEC=254<CR> 

RMCS1 =176300. 

4.3.3 DRIVE AND PARAMETER SELECTION 

STARTING THE PROGRAM AT 200 OR 2 10 HILL RESULT IN AUTOMATIC 
SELECTION OF THE DRIVES TO TEST AND THE TESTS TO RUN. 

STARTING THE PROGRAM AT 204 OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE (S) TO BE TESTED, THE TESTS TO BE EXECUTED. 
AND THE PARAMETERS TO USE. 

4.3.3. 1 DRIVE AND PARAMETER SELECTION DESCRIPTION 

THE FOLLOWING IS A TABLE OF TERMS USED BY THE PSI. 


**" 

"FC" 

"LC" 

"IC" 

"FT" 

’IT" 

"IT" 

"FS" 

*1S" 

"PAT" 

"WDX" 


REPEATS (ITERATIONS) 

FIRST CYLINDER ADDRESS 
LAST CYLINDER ADDRESS 
INCREMENT CYLINDER 
FIRST TRACK ADDRESS 
LAST TRACK ADDRESS 
INCREMENT TRACK 
FIRST SECTOR ADDRESS 
LAST SECTOR ADDRESS 

PATTERN (USED FOR DATA TEST) (NOT USED) 

WORD OF PATTERN 0 WHERE X IS 1 TO 16 (NOT USED) 

ALL SEEK TESTS (TESTS 0-7) 

ALL TIMING TESTS (TESTS 11-14) 


* USED BY THE OPERATOR TO SELECT TEST GROUPS 
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SPECIAL CASES OF CONTROL CHARACTERS 

IF <..> IS TYPED WHILE A TEST IS OPEN FOR MODIFICATION 

«/» AND OTHER TESTS IN THE ‘TEST COMMAND'* STRING 

ARE TO BE MODIFIED, THE REMAINING TESTS WILL BE UNCHANGED. 


WHEN THE PROGRAM IS STARTED FROM LOCATION 200 OR 210, TESTS 0-7 AND 
11, 12 8 14 WILL BE RUN USING ALL AVAILABLE, ONLINE DRIVES. IF THE 
OPERATOR WISHES TO SELECT THE DRIVES TO BE TESTED, THE TESTS TO BE 
PERFORMED, OR THE PARAMETERS TO BE USED, THE CONVERSATION MODE MAY 
BE ENTERED BY TYPING A 'CONTROL C' OR BY STARTING THE PROGRAM FROM 
EITHER LOCATION 204 OR 214. 


THE PROGRAM WILL THEN RESPOND WITH: 


DRIVE(S)= 

THE FOLLOWING EXAMPLES ASSUME THAT THE OPERATOR IS TO TEST 
DRIVE #3 USING TESTS 2 THRU 7 AND TEST 11 AND DOES NOT DESIRE TO CHANGE 
THE PARAMETERS (INITIAL CYLINDER ADDRESS, FINAL CYLINDER ADDRESS, ETC.). 
THE USER WOULD TYPE '3<CR>' WHICH SAYS ’THIS IS THE END OF DRIVE ENTRY*. 
THE PROGRAM WILL THEN REQUEST TEST NUMBERS. 

THE TRANSACTION APPEARS AS FOLLOWS: 

DRIVE(S)=3<CR> 

TEST= 

THE OPERATOR MAY NOW ENTER DESIRED TEST NUMBERS. IN THE EXAMPLE. 

HE WANTS TESTS 2 THRU 7 AND TEST 11 SO HE TYPES 2-7<,> (THE ’COMMA* 
SEPARATES ENTRIES), 11<.XCR> ('PERIOD* ’CARRIAGE RETURN' - 
END OF CHANGES, START TEST EXECUTION.) 

IT NOW LOOKS LIKE THIS 

DRIVE (S)=3<CR> 

TEST*2-7,11.<CR> 


IN THE NEXT EXAMPLE, IT IS ASSUMED THAT THE OPERATOR WISHES TO TEST 
DRIVE 4 AND TO RUN TESTS 1 AND 3 THRU 11, MODIFYING THE PARAMETERS 
FOR TESTS 3 AND 10. 


THF TRANSACTION WOULD BE AS FOLLOWS: 


DRIVE (S)=4<CR> 

TEST= 

THE OPERATOR NOW ENTERS THE TEST NUMBERS. THE TRANSACTION IS 
GIVEN BELOW: 


DRIVE(S)=4<CR> 

TEST=1 , 3/4-7, 10/11<CR> 


NOTICE THIS SAYS SELECT TEST 1. CONTINUED; SELECT TEST 3, OPEN</>; 
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SELECT TESTS 4-7, CONTINUED; SELECT TEST 10, OPEN</>; SELECT TEST 
11. END OF INPUT <.>. 

THE PROGRAM SCANS THE TEST NUMBER INPUT AND DETERMINES THAT THE 
PARAMETERS FOR TEST 3 AND TEST 10 ARE TO BE CHANGED. THE OTHER 
TESTS U1LL NOT BE ALTERED. 

(THE ENTIRE TRANSACTION IS REPEATED FOR CLARITY) 


DRIVE (S)=4<CR> 

TEST=1. 3/4-7, 10/1 1<CR> 
TEST 3 
R=X / 


; WHERE X IS ITERATION 


THE NEW VALUE FOR 'R' MAY BE ENTERED. TERMINATING THE ENTRY WITH 
A <•> (PERIOD) WILL TERMINATE THE CHANGES FOR THIS TEST; TYPING A 
<CR> OR TERMINATING THE ENTRY WITH A <CR> WILL CAUSE THE PROGRAM 
TO MOVE TO THE NEXT PARAMETER. 


DRIVE(S)*4<CR> 

TEST=1, 3/4-7, 10/11<CR> 
TEST 3 
R=1 / <CR> 

FC=N / 


;D0 NOT ALTER-BUT CONTINUE 

.'WHERE 'N' IS FIRST CYLINDER ADDRESS 


IF THE OPERATOR DOES NOT WISH TO CHANGE ’EC', THE FOLLOWING OCCURS: 

DRIVE (S)=4<CR> 

TEST=1. 3/4-7. 10/1 1.<CR> 

TEST 3 

R=1 / <CR> ;D0 NOT ALTER THIS LINE BUT CONTINUE 

FC-0 / <CR> ;D0 NOT ALTER THIS LINE BUT CONTINUE 

LC*560 / 

THE PROGRAM RESPONDS WITH THE PREVIOUSLY ASSIGNED PARAMETER FOR LAST 
CYLINDER ADDRESS IN THIS CASE USING 560 AS THE EXAMPLE. THIS IS 
WHAT THE OPERATOR INTENDED TO MODIFY AND IS WHY TEST 3 WAS 
OPENED. TO CHANGE THE VALUE TO '20' , THE NEW VALUE IS TYPED 
FOLLOWED BY A 'PERIOD* TERMINATOR «.XCR». 

THE TOTAL TRANSACTION AND RESPONSE: 

DRIVE (S)*4<CR> 

TEST=1, 3/4-7,10/1 1<CR> 

TEST 3 
R-1 / <CR> 

FC=0 / <CR> 

LC= 560 / 20.<CR> 

TEST 10 
R=1 / 

THE PROGRAM HAS LOADED TEST 3 WITH ITS NEW PARAMETERS AND THE 
PROGRAM IS WAITING FOR CHANGES TO TEST 10'S PARAMETERS. 

DRIVE (S)=4<CR> 

TEST=1, 3/4-7, 10/11<CR> 

TEST 3 
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R=1 / <CR> 

F C=0 / <CR> 

LC= 560 / 20.<CR> 

TEST 10 
R=1 / 10.<CR> 

THE OPERATOR TYPES THE NEW VALUE (10) AND TERMINATES THE ENTRY 
WITH A ’PERIOD* ’CARRIAGE RETURN’. 

THE PROGRAM NOW LOADS TEST 10 WITH THE NEW PARAMETERS (TEST 11 RETAINS 
THE PREVIOUSLY ASSIGNED PARAMETERS) AND RESPONDS WITH: 

DRIVE(S)= 

SINCE THE USER DID NOT END THE CONVERSATION MODE WITH A 'PERIOD PERIOD' , 
THE PROGRAM HAS LOOPED BACK TO THE BEGINNING LOOKING FOR MORE 
CHANGES. THAT IS TO SAY. AFTER THE ENTRY FOR DRIVE SELECTION. A 
<.XCR> WILL CAUSE THE TEST MESSAGE TO BE REPEATED AND FURTHER 
CHANGES CAN BE MADE. HOWEVER, AT SOME POINT IN ORDER TO EXECUTE 
THE PROGRAM, A 'PERIOD PERIOD' MUST BE TYPED. 

IF A SINGLE 'PERIOD' IS TYPED WHILE DRIVE OR TEST NUMBERS ARE BEING 
ENTERED. THE PROGRAM WILL START EXECUTION IMMEDIATELY. A 'PERIOD 
PERIOD' MUST BE TYPED BEFORE THE PROGRAM WILL EXIT TEST PARAMETER 
CHANGE MODE TO GO TO EXECUTION. 

4. 3. 3. 2 DRIVE AND PARAMETER SELECTION EXAMPLES 
EXAMPLE #1 


DRIVE=4.<CR> 


.•SELECT DRIVE #4. TERMINATE AND 

.’BEGIN EXECUTION USING PREVIOUSLY ASSIGNED 

.♦PARAMETERS 


EXAMPLE #2 


DRIVE=0<CR> 

TEST=1-5.<CR> 


SELECT DRIVE #0 AND MAKE CHANGES *'." 
RUN TEST 1 THRU 5 ONLY, USE DEFAULT 
PARAMETERS AND TERMINATE AND EXECUTE.' 


EXAMPLE #3 


DRIVE=2<CR> 

TEST=1-5, 6/7/1 0/<CR> 
TEST 6 
R=1 / <CR> 

FC=0 / 10.<CR> 


SELECT DRIVE #2 AND MAKE CHANGES 

RUN TEST 1-5 WITH DEFAULT PARAMETERS. OPEN 

TEST 6.7 AND 10 FOR CHANGES 

LEAVE *R' AS IS AND MOVE TO NEXT PARAMETER 

SET 'FC' CYLINDER ADDRESS TO 10. END CHANGES 

TO TEST 6. 


TEST 7 
R=1 / 50<CR> 

FC-0 / <CR> 

LC=560 / 50. .<CR> 


50 ITERATIONS, MOVE TO NEXT PARAMETER 

DO NOT CHANGE 'FC' CYLINDER ADDRESS BUT CONTINUE 

TEST 10 IS STILL PENDING AND WILL BE 
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.•RETAIN ITS PRESENT PARAMETERS. 


EXAMPLE #4 

DRIVE=0<CR> .SELECT DRIVE #0 AND MAKE CHANGES 

TEST=S.<CR> ,'RUN ALL SEEK TESTS 

EXAMPLE #5 


DRIVE=KCR> 

TEST=S/T<CR> 

TEST 0 
R=10 / <CR> 

FC=0 / 10. .<CR> 


EXAMPLE #6 


RUN ALL SEEK TESTS (OPEN FOR CHANGES) AND 
THE TIMING TESTS (WITH DEFAULT PARAMETERS). 
RUN WITH 10 ITERATIONS 
CHANGE FIRST CYLINDER ADDRESS 
AND START EXECUTION 

TESTS 1 - 10 WILL RETAIN THEIR PREVIOUSLY 
ASSIGNED PARAMETERS. 


DRIVE=1<CR> 

TE$T=S/<CR> 

TEST 0 

R=10 / 100.<CR> 
TEST 1 

R=100 / 1000.<CR> 
TEST 2 

R=1 / 10<CR> 

FC=0 / 50<CR> 
LC=560 / 51 -<CR> 
TEST 3 
R-1 .<CR> 

TEST 4 
R=1..<CR> 

EXAMPLE #7 


OPEN THE SEEK TESTS (TESTS 0-7) 

CHANGE TO 100 ITERATIONS. TO TO THE NEXT TEST 

CHANGE ’R’ TO 1000 ITERATIONS. MOVE TO NEXT TEST 

CHANGE 'R* TO 10 ITERATIONS. GO TO NEXT PARAMETER 
CHANGE ’FC* TO 50. GO TO NEXT PARAMETER 
CHANGE ’LC’ TO 51, GO TO THE NEXT TEST 

MOVE TO NEXT TEST 

USE TEST 4'S PARAMETERS AND START PROGRAM EXECUTION 


DRIVE=0,1 ,4<CR> 
TEST=0-5/<CR> 

TEST 0 
R=10 / <CR> 

FC=0 / <CR> 
LC-560 / 1 . .<CR> 


.•TEST DRIVES 0,1. AND 4 IN SEQUENCE 
.•CHANGE TEST 5 


.-CHANGE LAST CYLINDER FROM 560 TO 1 
.■START PROGRAM EXECUTION. 


5. SWITCH SETTINGS 
5.1 


OPERATIONAL SWITCH SETTINGS 


CZRNGAO RM80 FCTNL PTA MACRO V0A.00 15-JAN-82 07:05:59 PAGE 3-8 


SEQ 001 


L 1 


IF THE PROGRAM IS BEING RUN ON A SUITCHLESS PROCESSOR THE PROGRAM 
UILL DETERMINE THAT THE HARDWARE SWITCH REGISTER :3 NOT PRESENT 
AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 'SOFTWARE' SWITCH 
REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE 'SOFTWARE' 
SWITCHES ARE CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED 
BY TYPING A 'CONTROL G'. THE PROGRAM WILL RECOGNIZE THE 'CONTROL G' 
AT ANY TIME EXCEPT WHEN THE PROGRAM IS IN KEYBOARD EKTRY MODE. OR 
IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE 'SOFTWARE' 
SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE 
PROMPT FROM THE SWITCH ENTRY ROUTINE: 

'SWR = NNNNNN NEW = ' 

EACH TIME SWITCH SETTINGS ARE ENTERED. THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. 'RUBOUT' 

AND 'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING 
SWITCH ENTRY. 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS. THE 'SOFTWARE' SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 

THE SWITCH SETTINGS ARE: 

SW<15>*1 HALT ON ERROR 

SW<1A>=1 LOOP ON TEST 

SW<13>=1 INHIBIT ERROR TYPEOUTS 

SW<12>=1 TYPE TEST NUMBER 

SW<11>=1 INHIBIT ITERATIONS 

SW<10>=1 RING BELL ON ERROR 

SW<09>-1 LOOP ON ERROR 

SW<08>=1 PRINT ERROR MESSAGE ON LINE PRINTER 

SW<07>=1 READ 'C.SWR' SETTINGS FROM TTY 

SW<06>=1 INHIBIT TIME REPORTS (TESTS 11-15) 


5.2 CONTROL SWITCH SETTINGS 

THE CONTROL SWITCH SETTINGS ARE ENTERED THROUGH THE KEYBOARD. 

TO ENTER THE CONTROL SWITCH SETTING MODE PLACE SW<07>=1 
BEFORE PRESSING START. THEN UPON STARTING THE PROGRAM IT 
WILL TYPE THE PRESENT CONTENTS OF THE CONTROL SWITCH REGISTER 
(C.SWR) AND WAIT FOR THE NEW SETTING TO BE INPUT. THE INPUT 
STRING MUST CONSIST OF 1 TO 6 OCTAL DIGITS. TWO PERIODS (..). 
AND A CARRIAGE RETURN. 

Tf'E C.SWR SETTINGS ARE: 

C.SWR<1A>=0 NO STALL BETWEEN DRIVE FUNCTIONS 

=1 STALL AFTER EVERY DRIVE FUNCTION 

C.SWR<13>=0 USE SPECIFIC STALL TIMES 

=1 USE RANDOM STALL TIMES 

C.SWR<12>=0 NO INCREMENTING STALLS IN TEST A 

=1 PERFORM INCREMENTING STALLS IN TEST A 
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C.SWR<08>=0 DO IMPLIED SEEKS WI T H DATA TRANSFERS 

=1 DO EXPLICIT SEEKS BEFORE DATA TRANSFERS 

C.SWR<07>=0 DO READ HEADER AND DATA COMMANDS IN TESTS 0-7 

=1 DO EXPLICIT SEEK COMMANDS IN TESTS 0-7 
C.SWR<06>=0 60 HZ POWER SOURCE 

=1 50 HZ POWER SOURCE 

C.SWR<05>=0 ALLOW SOFTWARE TIMEOUTS (ENABLE WATCHDOG TIMER) 

=1 INHIBIT SOFTWARE TIMEOUTS (DISABLE WATCHDOG TIMER) 
C.SWR<00>=0 OPERATE IN 32. SECTOR (16 BIT) MODE 

=1 OPERATE IN 30. SECTOR (18 BIT) MODE 

THE DEFAULT CONDITION OF C.SWR<15:00>=0. 

REFER TO A. 3.1 FOR C.SWR SELECTION 


6. ERRORS 


THERE ARE ANUH6ER OF ERRORS THAT CAN OCCUR IN THIS PROGf AM. 
WHEN AN ERROR IS ENCOUNTERED. THE CALL TO THE ERROR ROUTINE 
IS MADE AND IF SW<13> IS NOT SET. AN ERROR MESSAGE PERTAINING 
TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
THE FOLLOWING: 

1. AN ERROR MESSAGE 

2. A DATA HEADER 

3. A DATA STRING 

REFER TO THE FOLLOWING SECTION FOR THE DIFFERENT ERRORS 
THAT CAN OCCUR. 

6.1 ERROR TYPES 

THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS: 

6.1.1 DRIVER ERROR 

THESE ERRORS WILL BE DETECTED BY THE RH/RM DRIVER. 

THERE ARE TWO CLASSES OF DRIVER ERRORS; THOSE THAT 
CAN NOT BE IDENTIFIED IN A MANNER THAT ALLOWS THE 
INFORMATION TO BE RETURNED TO A 'DATA PARAMETER BLOCK" 

(DPS) AND THOSE THAT CAN. THE FIRST CLASS WILL BE 
REPORTED BY ERROR CALLS (EMT'S) 1-5 WITHIN THE DRIVER. 

THE SECOND CLASS WILL PASS THE ERROR CODES TO THE 
STATUS/ERROR WORD (DPB+16) OF THE PROPER DPB. 

6.1.2 NON-FATAL ERRORS 

THESE ERRORS WILL BE DUE TO ’DISK" OR 'DATA" FAILURES 
WHICH WILL BE REPORTED AS THEY OCCUR. AFTER REPORTING 
THE ERROR THE PROGRAM WILL CONTINUE TESTING. 


6.1.3 FATAL ERRORS 
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N 1 


SEO 0013 


571 

572 

573 
57A 

575 

576 

577 
576 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 


THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KINO 
OF ERROR THAT INHIBITS THE PROGRAM FROM TESTING THE DISK. 

THIS ERROR WILL BE REPORTED WHEN IT OCCURS, THEN THE PROGRAM 
WILL ABORT THE TEST AND GO TO THE END OF PROGRAM. 

6.2 ERROR RECOVERY 

6.2.1 PRETEST ERROR 

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THEN DEPENDING 
ON HOW THE PROGRAM WAS STARTED IT WILL ASK FOR THE DRIVES AND 
ADDRESSES FOR TESTIN6 OR RETURN TO MONITOR. 

6.2.2 NON-FATAL ERROR 

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST. 

6.2.3 FATAL ERROR 

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THE 
PROGRAM WILL ABORT THE TEST AND GO TO THE END OF PROGRAM. 


7. RESTRICTIONS 

THE PROGRAM WILL TEST THE DRIVES IN EITHER 16 BIT MODE OR IN 18 
BIT MODE DEPENDING ON THE SETTING OF 'S.SWR<00>'. IF *C.SWR<00>' 

IS 0, ALL OF THE DRIVES WILL BE TESTED IN 16 BIT MODE; IF 'C.SWR<00> 

IS 1 ALL OF THE DRIVES WILL BE TESTED IN 18 BIT MODE. THE PROGRAM 
HAS NO PROVISIONS FOR TESTING DRIVES WITH INTERMIXED PACKS OR TESTING 
BOTH 16 BIT MODE AA> 18 BIT MODE DRIVES ON THE SAME SYSTEM. 

ACT11 AUTOMATIC MODE ASSUMES 16 BIT MODE. 

BEFORE THE PROGRAM IS STARTED, PROPERLY FORMATTED PACKS MUST BE MOUNTED 
ON THE DRIVES WHICH WILL BE TESTED. THE PROGRAM ASSUMES A 
PROPERLY FORMATTED PACK. THE FORMAT OF THE PACK IS NOT ALTERED 
BY THE PROGRAM. 


3. MISCELLANEOUS 

8.1 EXECUTION TIME 

THE PROGRAM REQUIRES APPROXIMATELY 10 MINUTES TO MAKE ONE PASS WITH 
ftM80 DRIVES. THIS ASSUMES THE DEFAULT TEST SEQUENCE (TESTS 0-7 AND 
11, 12 8 14) AND DEFAULT TEST PARAMETERS. 

8.2 STACK POINTER 
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B 2 


SEQ 0014 


628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 
6/8 

679 

680 
681 
682 

683 

684 


THE STACK POINTER IS INITIALLY SET TO 1100. 

8.3 TIMING TESTS (TESTS 11-15) PRINTOUTS 

AT THE COMPLETION OF EACH OF THE TIMING TESTS THE TIME OF THE 
MINIMUM SEEK, MAXIMUM SEEK, AND THE AVERAGE OF ALL OF TH' 
SEEKSPERFORMED ARE TYPED ON THE TTY. THE NUMBER OF SEEKS THAT 
HAD TIMES BELOW THE MINIMUM TIME ALLOWED WILL BE TYPED ON 
THE SAME LINE AS THE MINIMUM TIME. THE NUMBER ABOVE THE 
MAXIMUM WILL BE TYPED ON THE SAME LINE AS THE MAXIMUM 
TIME/AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE 
SAME LINE AS THE AVERAGE. 

8.3.1 TIMING TOLERANCES 

1. TEST 11 — ROTATIONAL SPEED TIMES 
60 HZ 

HINIMUM=15970 US 
HAXIMUM=17270 US 
NOMINAL =16670 US 

50 HZ 

HINIMUM=15970 US 
MAXiMUM=1 7270 US 
NQM1NAL= 16670 US 

2. TEST 12 — ONE CYLINDER SEEK TIMES 
MAXIMUM=600C US 

3. TEST 13 — AVERAGE SEEK TIME TEST (NOT DEFAULT) 

MAXIMUM=25000 US 

** THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME ** 
** ON THIS PARTICULAR DRIVE. THEREFORE, THIS TEST SHOULD BE ** 
** USED FOR REFERENCE ONLY. ** 

4. TEST 14 — MAXIMUM SEEK TIMES 
MAXIMUM (FORWARD)=50000 US 

t* THERE IS NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE ** 
** SEEK TIME ON THIS PARTICULAR DRIVE. THEREFORE, ANY REVERSE ** 
** SEEK TIMES ABOVE THE MAXIMUM TIME OF 50.0 MS WILL NOT BE ** 
** TYPED IN THE TIMING REPORT. HOWEVER, THE Rf£22J ** 

** WILL STILL TYPE THE MINIMUM, MAXIMUM AND AVERAGE TIMES ** 
** FOR THE REVERSE SEEKS. (SEE SECTION 8.3.2, EX. 2) 

5. TEST 15 — AVERAGE SEEK TIME MEASUREMENT (NOT DEFAULT) 
MAXIMUM=25000 US 

*t WARNING - THIS TEST TAKES APPROXIMATELY 3.0 HOURS TO RUN ** 
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SEQ OC* 5 


8.3.2. TIMING TESTS PRINTOUT EXAMPLES 


EXAMPLE #1 


ROTATIONAL SPEED TIMES 
HIN=16670 US 
MAX =16690 US 

AVG=16680 US 10 SEARCHES TIMED 

ALLOWABLE ROTATIONAL SPEED LIMITS FOR RM80 
MIN=15970 US 
MAX=17270 US 

ONE CYLINDER SEEK TIMES 

* FORWARD 
MIN=5350 US 
MAX=5920 US 

AVG=5550 US 559 SEEKS TIMED 

* REVERSE 
MIN=5040 US 
MAX=5970 US 

AVG=5330 US 560 SEEKS TIMED 


560 SEEKS TIMED 


ALLOWABLE ONE CYLINDER SEEK LIMIT 
MAX-6000 US 

AVERAGE SEEK TIMES 

* FORWARD 
HIN=23770 US 
NAX=24640 US 

AVG S 24230 US 128 SEEKS TIMED 

* REVERSE 
MIN=23990 US 
MAX=24550 US 

AVG-24220 US 128 SEEKS TIMED 


128 SEEKS TIMED 


ALLOWABLE AVERAGE TIME LIMIT 
MAX=25000 US 

MAXIMUM SEEK TIMES 

* FORWARD 
MIN=47990 US 
MAX=49980 US 

AVG=48010 US 128 SEEKS TIMED 

* REVERSE 
MIN=47120 US 
MAX =49650 US 

AVG=48340 US 128 SEEKS TIMED 

ALLOWABLE MAXIMUM (FORWARD) SEEK TIME LIMIT 
MAX=50000 US 


EXAMPLE #2 
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SEO 0016 


ROTATIONAL SPEED TINES 
MIN=16670 US 
HAX= 16690 US 

AVG=16680 US 10 SEARCHES TIMED 

ALLOWABLE ROTATIONAL SPEED LIMITS FOR RM80 
MIN=15970 MS 
NAX=i7270 US 

ONE CYLINDER SEEK TIMES 
* FORWARD 


MIN=5470 US 
MAX=7940 US 
AVG=5830 US 
* REVERSE 
MIN=5040 US 
MAX=5970 US 
AVG=5330 US 


3 ABOVE THE MAXIMUM OF 6000 US 
559 SEEKS TIMED 


560 SEEKS TIMED 


ALLOWABLE ONE CYLINDER SEEK LIMIT 
MAX=6000 US 


AVERAGE SE C K TIMES 

* FORWARD 
MIN=24730 US 
MAX-32620 US 73 A 
AVG=30320 US 128 

* REVERSE 
MIN=25620 
MAX=32230 US 128 
AVG=32800 US 128 


73 ABOVE THE MAXIMUM OF 25000 US 
128 SEEKS TIMED 


128 ABOVE THE MAXIMUM OF 25000 US 
128 SEEKS TIMED 


ALLOWABLE AVERAGE TIME LIMIT 
MAX-25000 US 


MAXIMUM SEEK TIMES 

* FORWARD 
MIN*50510 US _ 
MAX=57240 US 128 
AVG-56020 US 128 

* REVERSE 
MIN=50050 US 
MAX=57550 US ^ 
AVG-56210 US 128 


128 ABOVE THE MAXIMUM OF 50000 US 
128 SEEKS TIMED 


128 SEEKS TIMED 


ALLOWABLE MAXIMUM (FORWARD) SEEK TIME LIMIT 
MAX=50000 US 


END OF TEST 

WITH ALL SWITCHES ON A 'TT AN **ND OF PASS’* MESSAGE WILL BE 
TYPED AT THE COMPLETION OF TESTING A DRIVE AND THE tND OF TEST 
TYPEOUT WILL OCCUR WHEN ALL DRIVES HAVE BEEN TESTED. ALSO. THE 
END OF TEST COULD OCCUR ON A DRIVE, IF THE MAXIMUM ERROR LIMIT 
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E 2 


SEG 0017 


799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
8 22 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 


IN LOCATION 'ERMAX' IS EXCEEDED. 


9. 


PROGRAM DESCRIPTION 


9.1 


9.2 


THIS PROGRAM CONTAINS 16 TESTS. NUMBERED 0-15 IN OCTAL. 

TESTS 0-7 WILL READ THE CYLINDER, TRACK, AND SECTOR INFORMATION 
FROM THE HEADER, USING A "READ HEADER AND DATA'* COMMAND, AND 
THEN CHECK THE INFORMATION FOR VALIDITY. THUS, INSURING 
THE SEEK OPERATION FUNCTIONS PROPERLY. TESTS 11-14 WILL MEASURE 
THE ROTATIONAL SPEED, THE ONE CYLINDER SEEK, THE AVERAGE SEEK TIME, 
AND THE MAXIMUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN THE 
TOLERANCES ALLOWED. TEST 15 MEASURES THE AVERAGE SEEK TIME 
FOR UNIQUE NUMBER OF SEEKS, BUT DOES NOT HAVE ANY PASS/FAIL 
LIMITS. 

THE PROGRAM WILL START BY IDENTIFING ITSELF AND DETERMINING ALL 
DRIVES THAT ARE AVAILABLE FOR TESTING. THEN BEGINNING WITH 
THE LOWEST NUMERICAL DRIVE AND PROCEEDING IN SEQUENTIAL ORDER. 

ALL OF THE DRIVES WILL BE TESTED. ONE PASS THROUGH THE TEST 
SEQUENCE (TESTS 0-7 AND 11, 12 l 14) WILL BE PERFORMED ON EACH 
DRIVE BEFORE MOVING TO THE NEXT DRIVE IN SEQUENCE. DRIVE TO BE 
TESTED WILL BE TYPED AT THE BEGINNING OF EACH PASS. AN 'TEND OF 
PASS" MESSAGE WILL BE TYPED AT THE COMPLETION OF EACH PASS. AND 
AN "END OF TEST" MESSAGE WILL BE TYPED AFTER TESTING ALL DRIVES. 

REFER TO THE FOLLOWING SECTIONS FOR DETAILED DESCRIPTIONS OF EACH 
TEST. 

TEST 0 - RECAL/RANDOM SEEK TEST 

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE COMMAND 
AND THEN SEEK TO A RANDOM CYLINDER BETWEEN *TC" AND * 1C". AT 
THE COMPLETION OF BOTH COMMANDS. STATUS INDICATORS ARE CHECKED 
TO ENSURE THAT NO ERRORS OCCURRED. 

THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 

R - 200 

FC - 0 

LC - 560 

FT - 0 

FS - 0 

TEST 1 - SEEK/SEEK TEST 

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK 
CYCLE TO *U", 'IT", 'IS" FOLLOWED BY A REVERSE SEEK CYCLE TO 
•TC". "FT", "fs". AT THE COMPLETION OF EACH SEEK, THE PROPER 
INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 

R - 100 

FC - 0 
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f 2 


SEO 001 b 



TEST 2 - INCREMENTAL SEEK TEST 

THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER ADDRESS FROM *TC" TO , U , ‘ BY THE INCREMENT "IC". 
WHEN THE RESULTANT CYLINDER ADDRESS (NO EXCEEDS 
"LC" REVERSE SEEK CYCLES ARE INITIATED; STARTING 
AT THE LAST LEGAL ’NC" AND DECREMENTING BY "IC" 

UNTIL 'W IS LESS THAN *K". AT THE COMPLETION OF EACH 
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
ENSURE PROPER OPERATION. 

THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


TEST 3 - STEPPING SEEK TEST 

THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0,1 .2. 4, 8, 
16, 32, 64, 128, 256 AND 512. AT THE COMPLETION OF EACH SEEK 
COMMAND TH§ PROPER INDICATORS ARE EXAMINED TO VERIFY PROPER 
OPERATION. 

THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


TEST 4 - OSCILLATING SEEK TEST 

THIS TEST WILL COMMAND SEEK CYCLES FROM ’TC" TO C" AND BACK 
TO *TC . STARTS AT 'TC" AND INCREMENTS BY "IC "UP TO CYLINDER 

•tC, THEN IS DECREMENTED BY "IC** BACK TO CYLINDER TC". AT THE 
COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 
EXAMINED TO ENSURE PROPER OPERATION. 

THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 
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G 2 


SEQ 0019 


913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 


9.6 


9.7 


9.8 


FT 

FS 


0 

0 


TEST 5 - CONVERGING/DIVERGING SEEK TEST 

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 
SEEKS FROM 'NCV AND "HC?* RESPECTIVELY. ’NCI” WILL BE INCREMENTED 
BY ,, IC" AND ’XC2" WILL BE DECREMENTED BY * , IC** UNTIL "NCr* IS 
GREATER THAN THE INITIAL VALUE OF 'NC2*' AND ’NC2" IS LESS THAN 
THE INITIAL VALUE OF 'NCI'*. AT THE COMPLETION OF EACH SEEK 
COMMAND THE PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER 
OPERATION. ‘NCI" AND , NC2 ,> DEFAULT TO “FC** AND "LC** RESPECTIVELY. 

THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R 

FC 

LC 

IC 

FT 

FS 


1 

0 

560 

1 

0 

0 


TEST 6 - SERVO ADDRESSING LOGIC NOISE GENERATOR TEST 

IN THIS TEST A SEEK IS DONE TO CYL ,< NC" THEN A SEEK TO 

NC+4 THEN NC+1 THEN NC+3 THEN NC+2 THEN NC+5. NOW ’NC'* IS UPDATED 

BY ’•IC" AND THE ABOVE SEQUENCE IS REPEATED UNITL '1C" IS 

EXCEEDED BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF ’W 

IS ••FC*’. AT THE COMPLETION OF EACH SEEK COMMAND THE 

PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 

THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R 

FC 

LC 

IC 

FT 

FS 


1 

0 

560 

1 

0 

0 


TEST 7 - RANDOM SEEK TEST (NOT DEFAULT) 

THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS 'FC' 

’LC’. AFTER EACH SEEK. THE POSITION OF THE DRIVE IS VERIFIED BY 
READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 

THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 
OF POSITIONING OCCURS USING EACH HEAD. TRACK ADDRESSES ARE INCREMENTED 
BETWEEN PARAMTERS 'FT* AND 'LT*. 

THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


R 

- 

5000 

FC 

- 

0 

LC 

- 

560 

FT 

- 

0 

LT 

- 

4 
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SEQ 002 : 


970 

971 

972 

973 

974 

975 

976 

977 

978 
v79 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 


TEST 10 - ALL SEEKS TEST 

THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
TO ALL OTHER CYLINDERS. 

BEGINNING WITH CYLINDER ’FC’, THE TEST SEEKS TO EACH CYLINDER 
BETWEEN ’FC’ AND ’LC* FROM CYINDER *FC\ THE BEGINNING CYLINDER 
ADDRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
ADDRESS AND ALL CYLINDERS BETWEEN 'FC' AND 'LC'. THE SEQUENCE 
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 

THE FOLLOWING PARAMETERS ARE USED BY THIS TEST: 


TEST 11 - ROTATIONAL SPEED TIMING TEST 

THIS TEST WILL START A SEARCH TO CYLINDER ’FC', TRACK ’FT', 
SECTOR 'FS*. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS 
SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE IS 
REPEATED 10 TIMES THEN THE AVERA6E TIME IS CALCULATED AND 
CHECKED TO ENSURE IT IS WITHIN TOLERANCE: 

LO LIMIT (16.67MS - 4.31) « 15.97MS IF 50/60 HZ. 

HI LIMIT (16.67MS ♦ 3.5%) = 17.27MS IF 50/60 HZ. 

THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


TEST 12 - ONE CYLINDER SEEK TIMING TEST 

THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE 
CYLINDER 'LC k , THEN REVERSE SEEK TO CYLINDER 'FC'. THE 
TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
MAXIMUM TIME IS 6.0 MS 

THE TEST USES THE FOLLOWING PARAMETERS: 


TEST 13 - AVERAGE SEEK TIMING TEST (NOT DEFAULT) 

THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER ’FC’ TO 
CYLINDER 'LC', THEN A REVERSE SEEK FROM CYLINDER 'LC TO 
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SEQ 0021 


1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 
1C40 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 


CYLINDER ‘FC*. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY 
ARE WITHIN THE TOLERANCE ALLOWED FOR THE AVERAGE SEEK TIMZ. 

THIS SEQUENCE IS REPEATED 128 TIMES (FOR A TOTAL OF 256 SEEKS). 


MAXIMUM TIME IS 25.0 MS 

** THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME ** 
** ON THIS PARTICULAR DRIVE. THEREFORE. THIS TEST SHOULD BE ** 
** USED FOR REFERENCE ONLY. ** 

THE TEST USES THE FOLLOWING PARAMETERS: 


TEST 14 - MAXIMUM SEEK TIMING TEST 

THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER 'FC* TO 
CYLINDER ‘LC’, THEN A REVERSE SEEK FROM CYLINDER ’LC' TO 
CYLINDER 'FC*. BOTH SEEKS ARE TIMED. BUT ONLY THE FORWARD SEEKS 
ARE CHECKED TO ENSURE THEY ARE WITHIN THE TOLERANCE ALLOWED FOR 
THE MAXIMUM SEEK TIME. THIS SEQUENCE IS REPEATED 128 TIMES (FOR 
A TOTAL OF 256. SEEKS). MAXIMUM (FORWARD) TIME IS 50.0 MS 

** THERE IS NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE ** 
** SEEK TIME ON THIS PARTICULAR DRIVE. THEREFORE. ANY REVERSE ** 
** SEEK TIMES ABOVE THE MAXIMUM TIME OF 50.0 MS WILL NOT BE ** 
** TYPED IN THE TIMING REPORT. HOWEVER. THE TIMING REPORT ** 
** WILL STILL TYPE THE MINIMUM. MAXIMUM AND AVERAGE TIMES ** 
** FOR THE REVERSE SEEKS. ** 

THE TEST USES THE FOLLOWING PARAMETERS: 


TEST 15 - AVERAGE SEEK TIME MEASUREMENT TEST (NOT DEFAULT) 

THIS TEST MEASURES AVERAGE SEEK TIME BY DOING ALL UNIQUE SEEKS 
BETWEEN 'FC* AND *LC’ AND MEASURING THE SEEK TIMES. THE TOTAL 
SEEK TIME FOR ALL SEEKS IS THEN DIVIDED BY THE NUMBER OF SEEKS 
PERFORMED TO PROVIDE AN AVERAGE SEEK TIME VALUE FOR THE RANGE 
OF SEEKS TIMED. MAXIMUM TIME IS 25.0 MS 

** WARNING - THIS TEST TAKES APPROXIMATELY 3.0 HOURS TO RUN ** 
THE TEST USES THE FOLLOWING PARAMETERS: 


PROGRAM LISTING 
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SEO 0022 


1 

39 

40 


41 


42 

43 

52 

53 

54 

55 

56 
61 
62 

63 

64 

65 

66 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 


001100 

104000 

000004 


000011 

000012 

000015 

000200 


.-•LAST REVISION 24-SEP-81 

.TITLE CZRNGAO RM8C FCTNL PT4 
.-•COPYRIGHT (C) 1982 
.-•DIGITAL EQUIPMENT CORPORATION 
.-•COLORADO SPGS . , CO. 80919 

; *PR06RAM BY MIKE LEAVITT 

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
;*PACKAGE CMAINDEC-1 1-DZQAC-C5) , 18-MAR -81 


'.SBTTL 

OPERATIONAL 

SWITCH SETTINGS 

; * 

SWITCH 

USE 

• * 

• * 

15 

HALT ON ERROR 

; * 

14 

LOOP ON TEST 

; * 

13 

INHIBIT ERROR TYPEOUTS 

• * 

12 

TYPE TEST NUMBER 

• * 

10 

BELL ON ERROR 

• * 

9 

LOOP ON ERROR 

;* 

8 

PRINT ERROR MESSAGE ON LINE PRINTE 

;* 

7 

READ *C.SWR’ SETTINGS FROM TTY 

; * 

6 

INHIBIT TIME REPORTS (TESTS 11-14) 


.S8TTL 

; * 

• * 

; * 

; * 

;* 

; * 

;t 

; * 

;* 

;* 

;* 

; * 

;* 

;* 

• * 

• * 


CONTROL SWITCH SETTINGS 
SWITCH STATE 


USE 


14 

13 

12 

7 

6 

5 

0 


0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 


NO STALL BETWEEN DRIVE FUNCTIONS 
STALL AFTER EVERY DRIVE FUNCTION 
USE SPECIFIC STALL TIME 
USE RANDOM STALL 
NO INCREMENTING STALL IN TEST 4 

DO INCREMENTING STALL IN TEST 4 ^ _ 

DO 'HEAD HEADER AND DATA" IN TESTS 0-10 
DO EXPLICIT SEEKS IN TESTS 0-10 
60 HZ 
50 HZ 

RUN WATCHDOG TIMER 

INHIBIT WATCHD06 TIMER „ v 

TEST DRIVE (S) IN 31. SECTOR (16 BIT) MODE 
TEST DRIVE(S) IN 30. SECTOR (18 BIT) MODE 


.S8TTL BASIC DEFINITIONS 

.-•INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 

ERROR = EMT° ; .-BASIC DEFINITION OF ERROR CALL 

SCOPE = IOT ; -BASIC DEFINITION OF SCOPE CALL 

.-•MISCELLANEOUS DEFINITIONS 


HT 
LF 
CR 
CRLF 


= 11 
= 12 
= 15 
= 200 


CODE FOR HORIZONTAL TAB 

CODE FOR LINE FEED 

CODE FOR CARRIAGE RETURN 

CODE FOR CARRIAGE RETURN-LINE FEED 
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SEO 0023 


177776 

177776 

177774 

177772 

177570 

177570 





PS 

PSW=PS 

STKLMT 

PIRQ 

DSWR 

DDISP 


= 177776 

= 177774 
= 177772 
= 177570 
= 177570 


; .-PROCESSOR STATUS WORD 

;; STACK LIMIT REGISTER 
; ; PROGRAM INTERRUPT REQUEST REGISTER 
.-.-HARDWARE SWITCH REGISTER 
.-.-HARDWARE DISPLAY REGISTER 


; ‘GENERAL PURPOSE REGISTER DEFINITIONS 
RO = XO ;; GENERAL REGISTER 

R1 = Z1 ;; GENERAL REGISTER 

R2 = Z2 ;; GENERAL REGISTER 

R3 = Z3 ; .-GENERAL REGISTER 

R4 = Z4 ;; GENERAL REGISTER 

R5 = X5 ; ,-GCNERAL REGISTER 

R6 = X6 ;; GENERAL REGISTER 

R7 = Z7 ;; GENERAL REGISTER 

SP = X6 ;; STACK POINTER 

PC = Z7 PROGRAM COUNTER 


.-‘PRIORITY LEVEL DEFINITIONS 



40 

PR3 

= 140 

;; PRIORITY 

LEVEL 


?00 

PR4 

= 200 

; PRIORITY 

LEVEL 


>40 

PR5 

= 240 

-PRIORITY 

LEVEL 


100 

PR6 

= 300 

; .-PRIORITY 

LEVEL 


$40 

PR 7 

= 340 

; .-PRIORITY 

LEVEL 


PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 


; ‘"SWITCH REGISTER" SWITCH DEFINITIONS 


SW15 

SW14 

SW13 

SW12 

SW11 

SW10 

SW09 

SW08 

SW07 

SW06 

SW05 

SW04 

SW03 

SW02 

SW01 

SWOO 

SW9=SW09 

SW8=SW08 

SW7=SW07 

SW6-SW06 

SW5-SW05 

SW4-SW04 

SW3=SW03 

SW2-SW02 

SW1=SW01 

SW0=SW00 


100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 


'O'O'O'C 'i'O'OOOpoOOQBOOOOOO 
(>Vl^W(\)-tO'OOON»VA^UI 


?RNGA0 RM80 FCTNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 4-2 
ASIC DEFINITIONS 
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SEQ 002 


100000 

040000 

020000 

010000 

004000 

002000 

001000 


;*DATA BIT DEFINITIONS (BITOO TO BIT15) 



001000 

000400 

000200 

000100 

000040 

000020 

000010 




BIT15 = 
BIT14 = 
BIT13 = 
BIT12 = 
BIT11 = 
BIT10 = 
BIT09 = 
BIT08 = 
BIT07 = 
BITOfe = 
BIT05 = 
BIT04 = 
BIT03 = 
BIT02 = 
BIT01 = 
BITOO = 
BIT9=BIT09 
BIT8=BIT08 
BIT7=BIT07 
BIT6=8IT06 
BIT5=BIT05 
BI T4=8IT04 
BIT3=BIT03 
8IT2=BIT02 
BIT1=BIT01 
BI TO^BITOO 

;*BASIC M CI 


100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 


TRAP VECTOR ADDRESSES 


• a 

tTiTi 

)4 

ERRVEC 

= 4 

.-TINE OUT AND OTHER ERRORS 


M 

0 

RESVEC 

= 10 

.•RESERVED AND ILLEGAL INSTRUCTIONS 

• 3 

iji| 

4 

TBITVEC 

= 14 

;"T" BIT 

• 3 


4 

TRTVEC 

= 14 

.•TRACE TRAP 

• 3 

nt 

4 

BPTVEC 

= 14 

.•BREAKPOINT TRAP (BPT) 

• 3 


>0 

I0TVEC 

- 20 

.•INPUT/OUTPUT TRAP (IOT) **SCOPE** 

• a 


!4 

PWRVEC 

= 24 

; POWER FAIL 

• a 


0 

EMTVEC 

= 30 

.♦EMULATOR TRAP (EMT) **ERROR** 

• 3 


4 

TRAPVEC 

= 34 

.TRAP" TRAP 

ii 


>0 

TKVEC 

= 60 

; TTY KEYBOARD VECTOR 

• i 


>4 

TPVEC 

* 64 

;TTY PRINTER VECTOR 

li 


>0 

PIROVEC 

= 240 

.•PROGRAM INTERRUPT REQUEST VECTOR 


; CONTROL AND STATUS REGISTER 1 (RMCS1) 


IE 

= 100 

RDY 

= 200 

A16 

= 400 

A17 

= 1000 

PSEL 

= 2000 

HCPE 

= 20000 

TRE 

= 40000 

;SC 

= 100000 


; INTERRUPT ENABLE (BIT #6) 

.•READY (BIT #7) 

.-HIGH ORDER BUS ADDRESS BIT (BIT #8) 
.-HIGH ORDER BUS ADDRESS BIT (BIT #9) 
.-PORT SELECT (BIT #10) 

;MASS8USS PARITY ERROR (BIT #13) 
.•TRANSFER ERROR (BIT #14) 

.•SPECIAL CONDITION (BIT #15) 


.-WORD COUNT REGISTER (RNUC) 

.’(EACH BIT IS CALLED BY BIT NUMBER) 


.‘BUS ADDRESS REGISTER (RMBA) 
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97 .-(EACH BIT IS CALLED BY BIT NUMBER) 


SEQ 0025 


000001 



000100 

000200 

000400 

001000 

002000 

004000 

010000 

020000 

040000 

100000 


.•CONTROL AND STATUS REGISTER 2 (RMCS2) 


1 

2 

4 

TO 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 


UNIT SELECT (BIT #0) 

UNIT SELECT (BIT #1) 

UNIT SELECT (BIT #2) 

BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
CLEAR (BIT #5) 

INPUT READY (BIT #6) 

OUTPUT READY (BIT 07) 

MASS BUS PARITY ERROR (dT 08) 

MISSED TRANSFER ERROR (BIT #9) 

PROGRAM ERROR (BIT #10) 

NON EXISTENT MEMORY (BIT #11) 

NON EXISTENT DRIVE (BIT #12) 

UNIBUS PARITY ERROR (BIT #13) 

WRITE CHECK ERROR (BIT #14) 

DATA LATE (BIT #15) 


.-DATA BUFFER REGISTER (RMDB) 

.-(EACH BIT IS CALLED BY BIT NUMBER) 

.SBTTL RM80 REGISTERS 

.•CONTROL AND STATUS 1 REGISTER. (#00) 


1 

2 

4 

10 

20 

40 

4000 


GO BIT (BIT #0) 

FUNCTION CODE BIT #1 
FUNCTION CODE BIT 02 
FUNCTION CODE BIT #3 
FUNCTION CODE BIT #4 
FUNCTION CODE BIT #5 
DEVICE AVAILABLE (BIT #11) 


.•DRIVE STATUS REGISTER (RMDS) (#01) 



1 

OM 

s 

i 


3 

VV 

s 

100 


0 

DRY 

c 

200 


3 

DPR 

2S 

400 

PH 

0 

PGM 

— 

1000 


0 

LST 

s: 

2000 


3 

URL 

r 

4000 


0 

MOL 

s 

10000 


0 

PIP 

s 

20000 


0 

ERR 

s 

40000 


0 

ATA 

s 

100000 


OFFSET MODE 
VOLUME VALID (BIT #6) 

DRIVE READY (BIT 07) 

DRIVE PRESENT (BIT #8) 

PROGRAMABLE (BIT #9) 

LAST SECTOR TRANSFERRED (BIT #10) 

WRITE LOCK (BIT #11) 

MEDIUM ON-LINE (BIT #12) 

POSITIONING OPERATION IN PROGRESS (BIT #13) 
COMPOSITE ERROR (BIT #14) 

ATTENTION ACTIVE (BIT #15) 


.•ERROR REGISTER #01 (RMER1 ) (#02) 


151 

000001 

ILF 

= 1 

152 

000002 

ILR 

= 2 

153 

000004 

RMR 

= 4 

154 

000010 

PAR 

= 10 

155 

000020 

FER 

= 20 

156 

000040 

WCF 

= 40 


; ILLEGAL FUNCTION (BIT #0) 

; ILLEGAL REGISTER (BIT #1) 

; REGISTER MODIFICATION REFUSED (BIT 02) 
.•PARITY ERROR (BIT #3) 

; FORMAT ERROR (BIT #4) 

; WRITE CLOCK FAIL (BIT #5) 


I 


SEQ 0026 
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000100 

000200 

000400 

001000 


020000 

040000 

100000 



100000 



100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 


ECC HARD ERROR (BIT #6) 

HEADER COMPARE ERROR (BIT #7) 
HEADER CRC ERROR (BIT #8) 
ADDRESS OVERFLOW ERROR (81 T #9) 
INVALID ADDRESS ERROR (BIT #10) 
WRITE LOCK ERROR (BIT #11) 

DRIVE TIMING ERROR (BIT #12) 
OPERATION INCOMPLETE (BIT #13) 
DRIVE UNSAFE (BIT #14) 

DATA CHECK ERROR (BIT 15) 


; MAINTAINABILITY REGISTER #01 (RMM91)(#03) - READ ONLY BITS 

DMD = 1 .'DIAGNOSTIC MODE 

LSIT = 2 

WD = 10 

EECC = 20 

WC = 40 

CONT = 100 

PHA = 200 

PDA = 400 

ECRC = 1000 

PLFS = 2000 

ESRC = 4000 

REX = 10000 

EBL = 20000 

OCC = 100000 

.-MAINTAINABILITY REGISTER #01 (RMMR1) (#03) - WRITE ONLY BITS 


DMD 

MSC 

MI 

MWP 

DTG 

MS 

MDF 

MSER 

MOC 

MUR 

MRD 

MCLK 

MSEN 

DTO 

06EN 

06CK 


= 1 
= 2 
= 4 
= 10 
= 20 
= 40 
= 100 
= 200 
= 400 
= 1000 
= 2000 
= 4000 
= 10000 
= 20000 
= 40000 
= 100000 


.'DIAGNOSTIC MODE BIT 


.'ATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 


000200 


DEVICE 0 (BIT #0) 
DEVICE 1 (BIT #1) 


DEVICE 

DEVICE 


(BIT #2) 
(BIT #3) 


DEVICE 4 (BIT #4) 
DEVICE 5 (BIT #5) 


DEVICE 

DEVICE 


(BIT #6) 
(BIT #7) 
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SEO 0027 


000010 

000020 

000040 

000100 

000200 

000400 

004000 

020000 

040000 


000100 

000200 

000400 


000200 

001000 

002000 

004000 

010000 


.•DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

.•DRIVE TYPE REGISTER (RMDT) (#06) 


DTOO 

= 1 

DT01 

= 2 

DT02 

= 4 

DT03 

= 10 

DT04 

= 20 

DT05 

= 40 

DT06 

= 100 

DT07 

= 200 

DT08 

= 400 

DRQ 

= 4000 

MOH 

= 20000 

TAP 

= 40000 

NBA 

= 100000 


DRIVE TYPE NUMBER BIT 1 
DRIVE TYPE NUMBER BIT 2 
DRIVE TYPE NUMBER BIT 3 
DRIVE TYPE NUMBER BIT 4 
DRIVE TYPE NUMBER BIT 5 
DRIVE TYPE NUMBER BIT 6 
DRIVE TYPE NUMBER BIT 7 
DRIVE TYPE NUMBER BIT 8 
DRIVE TYPE NUMBER BIT 9 
DRIVE REOUEST REQUIRED (BIT #11) 
MOVING HEAD (BIT #13) 

TAPE DRIVE (BIT #14) 

NOT BLOCK ADDRESSED (BIT #15) 


; LOOK-AHEAD REGISTER (RMLA) (#07) 

SCO =100 
SCI = 200 
SC2 = 400 


SECTOR COUNT FIELD 0 (BIT #6) 
SECTOR COUNT FIELD 1 (BIT #7) 
SECTOR COUNT FIELD 2 (BIT #8) 


RM MAINTAINABILITY REGISTER #2 (RMMR2) (#10) 
RM ERROR REGISTER #02 (RMMR2) (#10) 


OFFSET REGISTER (RMOF) (#11) 


OFD 

SSEI 

HCI 

ECI 

FMT16 


= 200 
= 1000 
= 2000 
= 4000 
= 10000 


.•OFFSET DIRECTION (BIT #07) 

.•SKIP SECTOR INHIBIT (BIT #09) 

.•HEADER COMPARE INHIBIT (BIT #10) 

.ERROR CORRECTION CODE INHIBIT (BIT #11) 
.•FORMAT BIT (BIT #12) 


.‘DESIRED CYLINDER ADDRESS (RMDC) (#12) 
.•(EACH BIT IS CALLED BY BIT NUMBER) 

; CURRENT CYLINDER ADDRESS (RHHR) (#13) 
.■(EACH BIT IS CALLED BY BIT NUMBER) 

.•SERIAL NUMBER REGISTER (RMSN) (#14) 
.•(EACH IS CALLED BY BIT NUMBER) 

;RM ERROR REGISTER #02 (RHER2) (#15) 


7 JTJTfi 

10 

DPE 

= 10 

7 ffiti | 

M> 

SSE 

= 40 


30 

DVC 

= 200 

7 i/W 

>0 

LBC 

= 2000 


LSC 

= 4000 

ti ftMiBKppp 

I VC 

= 10000 


OPE 

= 20000 


SKI 

= 40000 


DATA PARITY ERROR (BIT #3) 

SKIP SECTOR ERROR (BIT #5) 
DEVICE CHECK (BIT #7) _ 

LOSS OF BIT CLOCK (BIT #10) 

LOSS OF SYSTEM CLOCK (BIT #11) 
INVLAID COMMAND ERROR (BIT #12) 
OPERATOR PLUG ERROR (BIT #13) 
SEEK INCOMPLETE (BIT #14) 


J 


C 3 


SEQ 0028 
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BSE = 100000 


;BAD SECTOR ERROR (BIT #15) 


;ECC POSITION REGISTER (RNEC1) (#16) 
; (EACH BIT IS CALLED BY BIT NUMBER) 

;ECC PATTERN REGISTER (RHEC2) (#17) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 


; DRIVER OPERATION CODE DEFINITIONS 

SEEK = 105 

RE CAL = 107 

DRVCLR =111 

RELEASE = 113 

OFFSET = 115 

RTC = 117 

READIN = 121 

PACK = 123 

SEARCH = 131 

WRCKD = 151 

WRCKHD = 153 

WRITE = 161 

WRTHD = 163 

READ = 171 

READHD = 173 

GETREG = HI 

SETFORM = 143 

SELDRV = 145 


177400 


; OTHER EQUATES 
SCTRWC = -256. 


;UORD COUNT FOR SECTOR 


SEQ 0029 
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1 .SBTTL TRAP CATCHER 


000000 


000174 
000174 000000 
000176 000000 


000220 
000046 
000046 015366 
000052 
000052 020000 
000220 

001100 


001100 
000024 
000024 000200 
000044 
000044 001100 
001100 


001100 

001100 

001102 

001104 

001106 

001110 

001112 


000000 

001234 

001034 

001034 

001034 

000030 

001114 


♦ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ,, .♦2.HALT ,, 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 


DISPREG: .WORD 0 
SUREG: .WORD 0 

.SBTTL STARTING ADDRESS(ES) 


.’.•SOFTWARE DISPLAY REGISTER 
; .-SOFTWARE SWITCH REGISTER 


000200 

000137 

003270 

JMP 

a*START1 

.-.-JUMP TO STARTING ADDRESS OF PROGRAM 

2 

3 000204 

000137 

003312 

JMP 

8PSTART2 

.’SELECT OPERATING PARAMETERS 

5 0002 1 0 

000137 

003260 

JMP 

3PSTART3 

.•SELECT RH/RM ADDRESSES 

7 00021 * 

000137 

003302 

JMP 

9PSTART4 

.•COMBINATION OF 204 AND 210 


.SBTTL ACT11 HOOKS 


; HOOKS REQUIRED BY ACT11 
SSVPC=. 

.=46 

SENDAD 

.-52 

.WORD 20000 
.=$SVPC 

.=1100 

.SBTTL APT PARAMETER BLOCK 


.•SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

;;2>SET L0C.52 TO 20000 
;; RESTORE PC 


;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


.$X=. ; ; SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ;;FOR APT START UP 

.=44 ; .-POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR ; .’POINT TO APT HEADER BLOCK 
.=.$X ; .’RESET LOCATION COUNTER 

• '*******»*******************************•*****•**•*****•****•**• 
; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 DIAGNOSTIC 
.•INTERFACE SPEC. 


SAPTHD : 
SHIFTS: .WORD 
SMBADR: .WORD 
STSTM: .WORD 
SPASTM: .WORD 
SUNITM: .WORD 


;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

.•ADDRESS OF APT MAILBOX (BITS 0-15) 

•RUN t{mE°IN L SE?1? T 0F E 1ST PASS ON 1 UNIT (QUICK VERIFY) 


TAB.XY=. 


.WORD 


0 ;; TWO HIGH BITS OF 1 

SMAIL ;; ADDRESS OF APT MAI 

540. ;;RUN TIM OF LONGEST 

540. ;;RUN TIME IN SECS. 

540. ;; ADDITIONAL RUN TIM 

SETEND-SMAIL/2 ;:LENGTH MAI 
.•COMMON TAG STARTING ADDRESS 


. .nura i ini. vkvw* w> »•■••■ ■ - 

;; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
-SMAIL/2 :;LENGTH MAILBOX-ETABLE (WORDS) 
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0 .SBTTL COMMON TAGS 


SEQ 0030 


001176 
001200 
001202 
001 204 
001206 
001210 
001212 
0012U 
001216 
001220 
001222 
001224 
001230 
001231 
001232 


000000 


000000 

000000 

000000 

000000 



♦THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
♦USED IN THE PROGRAM. 



001114 

.=TAB.XY 

001114 


S CM TAG: 

001114 

000000 

.WORD 

001116 

000 

JTSTNH: .BYTE 

' ill 17 

000 

SERFLG: .BYTE 

001120 

000000 

SICNT: .WORD 

001122 

000000 

SLPADR: .WORD 

001124 

000000 

SLPERR: .WORD 

001126 

000000 

SERTTL: .WORD 

001130 

000 

SITEMB: .BYTE 

001131 

001 

SERMAX: .BYTE 

001132 

000000 

SERRPC : .WORD 

001134 

000000 

SGDADR : .WORD 

001136 

000000 

S8DADR: .WORD 

001140 

000000 

SGDDAT: .WORD 

001142 

000000 

SBDDAT : .WORD 

001144 

000000 

.WORD 

001146 

000000 

.WORD 

001150 

000 

SAUTOB: .BYTE 

001151 

000 

SINTAG: .BYTE 

001152 

000000 

.WORD 

001154 

177570 

SWR: .WORD 

001156 

177570 

DISPLAY: .WORD 

001160 

177560 

STKS: 177560 

001162 

177562 

STKB: 177562 

001164 

177564 

STPS: 177564 

001166 

177566 

$TP8: 177566 

001170 

000 

SNULL: .BYTE 

001171 

002 

SFILLS: .BYTE 

001172 

012 

SFILLC: .BYTE 

001173 

000 

STPFLG: .BYTE 

001174 

000000 

SREGAD: .WORD 



STMP1 : 
STMP2: 
STIMES 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

0 


0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

DSWR 

DDISP 


377 

377 SBELL: 

.ASCII 

<207><377><377> 


SQUES: 

.ASCII 

/?/ 


SCRLF : 

.ASCII 

<15> 

000 

SLF: 

.ASC1Z 

<12> 


; .-START OF COiflON TAGS 

.’.'CONTAINS THE TEST NUMBER 
;; CONTAINS ERROR FLAG 
;; CONTAINS SUBTEST ITERATION COUNT 
.’.’CONTAINS SCOPE LOOP ADDRESS 
.’.‘CONTAINS SCOPE RETURN FOR ERRORS 
; .-CONTAINS TOTAL ERRORS DETECTED 
.’.’CONTAINS ITEM CONTROL BYTE 
.-.’CONTAINS MAX. ERRORS PER TEST 
;; CONTAINS PC OF LAST ERROR INSTRUCTION 
; .-CONTAINS ADDRESS OF 'GOOD' DATA 
;; CONTAINS ADDRESS OF 'BAD* DATA 
;; CONTAINS ’GOOD’ DATA 
.‘.’CONTAINS ’BAD' DATA 
;; RESERVED— NOT TO BE USED 

.‘.‘AUTOMATIC MODE INDICATOR 
.‘.•INTERRUPT MODE INDICATOR 

.* .-ADDRESS OF SWITCH REGISTER 
; .’ADDRESS OF DISPLAY REGISTER 
;;TTY KBD STATUS 
; ; TTY KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 
; ; TTY PRINTER BUFFER REG. ADDRESS 
.’.‘CONTAINS NULL CHARACTER FOR FILLS 
.’.’CONTAINS 0 OF FILLER CHARACTERS REQUIRED 
; .’INSERT FILL CHARS. AFTER A "LINE FEED" 

;; "TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 
.‘.•CONTAINS THE ADDRESS FROM 
; .-WHICH (SREGO) WAS OBTAINED 
.’.’CONTAINS ((SREGADHO) 

;; CONTAINS <(SREGAD)+2> 

;; CONTAINS ((SREGAD)H) 

;; CONTAINS ((SREGADH6) 

;; CONTAINS (<SREGAD>+10> 

.’.■CONTAINS U$REGAD)+12) 

.-.-USER DEFINED 

.-.♦USER DEFINED 

.-.’USER DEFINED 

;;MAX. NUMBER OF ITERATIONS 

.-.‘ESCAPE ON ERROR ADDRESS 


SQUES: .ASCII /?/ .-.-QUESTION HARK 

SCRLF: .ASCII <15> .’.CARRIAGE RETURN 

$LF : .ASCII <12> .’.’LINE FEED 

• •****************♦****♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦**********♦******* 

'.SBTTL APT MAILBOX-ETABLE 
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F 3 


SEQ 003' 


; ;APT MAILBOX 
;; MESSAGE TYPE CODE 
;; FATAL ERROR NUMBER 
;;TEST NUMBER 
; ;PASS COUNT 
;; DEVICE COUNT 
;;I/0 UNIT NUMBER 
;;MESSAGE ADDRESS 
; .‘MESSAGE LENGTH 
;;APT ENVIRONMENT TABLE 
; .-ENVIRONMENT BYTE 
;; ENVIRONMENT MODE BITS 
; ;APT SWITCH REGISTER 
;;USER SWITCHES 
;;CPU TYPE, OPTIONS 
BITS 15-11=CPU TYPE 

1 1 / 04*01 , 1 1 /05=02 , 1 1 720=03 , 1 1 /40=04 , 1 1 /45=05 
1 1 /70=06 ,PDQ=07, Q=1 0 
BIT 1 0=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS.M.S. BYTE 
; ;MEM. TVPE,BLK#1 
MEM. TYPE BYTE " (HIGH BYTE) 

900 NSEC CORE>001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
;;HIGH ADDRESS,BLK#1 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF TYPE" ABOVE 
.-.-HIGH ADDRESS.M.S. BYTE 
;; MEM. TYPE ,BLK#2 
; .MEM. LAST ADDRESS, BLK#2 
;;HIGH ADDRESS.M.S. BYTE 
;; MEM. TYPE ,BLK#3 
;;MEM.LAST ADDRESS, BLK#3 
,-,-HIGH ADDRESS, M.S. BYTE 
;; MEM. TYPE ,BLK#4 
; ; MEM. LAST ADDRESS, BLK#4 
;; INTERRUPT VECTORS .BUS PRI0RITV/F1 
;; INTERRUPT VECT0R#2BUS PRI0RITY#2 
.-.-BASE ADDRESS OF EQUIPMENT UNDER TEST 
;; DEVICE MAP 



.BYTE 0 
BASF LG: .WORD 0 
XXDP: .WORD 0 


3 


SEQ 003? 


CONTROL SWITCHES 

MAXIMUM NUMBER OF ERRORS ALLOWED PER DRIVE 
PREVIOUS CONTENTS OF 'C.SWR' 

CONTROL "C" FLAG 

GET RM ADDRESSES FLAG <0=NO. -1=YES) 

LPT AVAILABLE STATUS <0=N0.1=YES) 

DRIVES SELECTED FOR TESTING 
DEFAULT IS RUN TESTS 0-7 t 11,12 t K 
MODIFY TEST PARAMETER FLAGS 
CLOCK STATUS (0-NO CLOCK. ♦1=KW11-P, 

AND -1=KW11-L) 

: 1 6 MILLISECONDS PER CLOCK TICK 
; 16666 H1RC0SEC0NDS PER CLOCK TICK 


DRIVE UNDER TEST 
DRIVE MASK BIT 
STATUS/ERROR INDICATOR IS 
SAVED HERE ON AN ERROR 
CYLINDER READ 
TRACK READ 
SECTOR READ 
CYLINDER DESIRED 
SECTOR DESIRED 
TRACK DESIRED 

CONTAINS THE LAST TRACK OF THE UNIT UNDER 
TEST. RM80 = 13. 

M1MINM TfMF 

NUMBER OF COUNTS BELOW MIN. LIMIT 
MAXIMUM TIME 

NUMBER OF COUNTS ABOVE MAX. LIMIT 
TOTAL TIME OF ALL SEEKS 
NUMBER OF SEEKS PERFORMED 
MINIMUM TIME 

NUMBER OF COUNTS BELOW MIN. LIMIT 
MAXIMUM TIME 

NUMBER OF COUNTS ABOVE MAX. LIMIT 
TOTAL TIME OF ALL SEEKS 
NUMBER OF SEEKS PERFORMED 
POINTS TO TABLE OF TIMES 
FATAL WRITE CHECK ERROR FLAG 
VARIABLE STALL (TEST A) 

SAVE DISK ADDRESS 
SEEK TIMER 
SEEK COUNTER 

TESTING RANGE FOR SERVO SETTLE DOWN TEST 
WORD COUNT FOR A FULL TRACK IN 16 BIT MODE 
10 MILLISECONDS STALL (TEST 0-10) 

10 MILLISECONDS STALL 
5 SEC STALL 

MAX. INCREMENTING STALL ALLOWED IN TEST A 
NUMBER OF ERRORS ALLOWED IN TESTS 
BEFORE GOING TO THE NEXT TEST 
RESERVED 

FLAG FOR DETECTING BAD SECTOR , 

THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 


i 
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H 3 


SEO 0035 


;THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
; 'XXDP* DEVICE CODE FOR THE RM80. 


001472 

001502 

001506 

001510 

001512 

001522 

001524 

001530 

001534 

001536 

001540 

001542 

001546 

001550 

001552 

001554 

001556 


001560 

001562 

001564 

001566 

001570 

001572 

001574 

001576 

001600 

001602 

001604 

001606 

001610 

001612 

001614 

001616 

001620 

001622 

001624 

001626 

001630 

001632 

001634 

001636 


000000 

000000 

OOOOOO 

000000 


176700 

000254 

000104 

172540 

172542 

172544 

000100 

177546 

177564 

177566 

177514 

177516 


000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

002000 

004000 

010000 

020000 

040000 

100000 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 


OOOOOO 

OOOOOO 


OOOOOO 


000240 

000106 


000102 


;THE FOLLOWING 8. LOCATIONS ARE USED IN THE AVERAGE SEEK TIME 
.-MEASUREMENT TEST ONLY. (TEST 15) 


SKTIM: 
SKCNT : 
SKSIZ : 
CYINC: 


.WORD 

.WORD 

.WORD 

.WORD 


0.0, 0.0 
0.0 
0 
0 


ERRCN: .BLKB 8. 


RH.ADR: 

RHVEC: 

PKV: 

PKCS: 

PKB: 

PKC: 

LKV: 

LKS: 

TPS: 

TPB: 

LPS: 

LPB: 


BITS: 


001640 037422 
001642 OOOOOO 


.S8TTL TIMING LIMITS 

.•ROTATIONAL TEST TABLES 
;60HZ TABLE 

T11A: .WORD ROTATE 

.WORD 0 


ACCUMULATED SEEK TIME 
NUMBER OF SEEKS 
SIZE OF CURRENT SEEK CYCLE 
CYLINDER OFFSET VALUE 

.•TOTAL ERROR COUNT FOR DRIVES 0-7. 


WORD 

176700 

RH/RM UNIBUS ADDRESS 

WORD 

254.240 

VECTOR ADDRESS AND PRIORITY 

WORD 

104.106 

KW11-P VECTOR ADDRESS 

WORD 

172*40 

KW11-P CONTROL AND STATUS REG 

WORD 

172542 

KW11-P COUNT SET BUFFER 

WORD 

172544 

KW11-P COUNTER 

WORD 

100.102 

KW11-L VECTOR ADDRESS 

WORD 

177*46 

KW11-L STATUS REGISTER 

WORD 

177564 

TTY PRINTER STATUS 

WORD 

177566 

TTY PRINTER BUFFER 

WORD 

177514 

LINE PRINTER STATUS 

WORD 

177516 

LINE PRINTER BUFFER 

.E 

WORD 

BITOO 


WORD 

8IT01 


WORD 

BIT02 


WORD 

BIT 03 


WORD 

BIT04 


WORD 

BIT05 


WORD 

BIT06 


WORD 

8IT07 


WORD 

BIT08 


WORD 

BIT09 


WORD 

BIT 10 


WORD 

81 Til 


WORD 

BIT12 


WORD 

BIT13 


WORD 

BIT 14 


WORD 

BIT15 


WORD 

BITOO 


.WORD 

BIT01 


.WORD 

BIT02 


.WORD 

BIT03 


.WORD 

BIT04 


.WORD 

BIT05 


.WORD 

BIT06 


.WORD 

BIT07 



SEQ 0054 
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001644 

001646 

003075 

003277 


.WORD 

.WORD 

1597. 

1?27. 

;L0 LIMIT 
;HI LIMIT 

(16.67MS - 4.3*) 
(16.67MS ♦ 3.5*) 

001650 

001652 

001654 

001656 

037422 

000000 

003075 

003277 

;50HZ 

T118: 

TABLE 

.WORD 

.WORD 

.WORD 

.WORD 

ROTATE 

0 

1597. 

1727. 

;L0 LIMIT 
;HI LIMIT 

(16.67MS - 4.3*) 
(16.67MS ♦ 3.5*) 

001660 

001662 

001664 

001666 

037453 

037620 

000000 

001130 

.•SEEK 

T12: 

TEST TABLES 
.WORD ONECYL 
.WORD REV 
.WORD 0 
.WORD 600. 

; FORWARD 
.•REVERSE 
;N0 LOWER 
;HI LIMIT 

LIMIT 

(6.0MS) 

001670 

001672 

001674 

001676 

037520 

037620 

000000 

004704 

T13: 

.WORD 

.WORD 

.WORD 

.WORD 

AVERGE 

REV 

0 

2500. 

; FORWARD 
.•REVERSE 
;N0 LOWER 
; HI LIMIT 

LIMIT 

(25.0MS) 

001 7C9 
001702 
001704 
001706 

037560 

0V620 

000000 

011610 

T14: 

.WORD 

.WORD 

.WORD 

.WORD 

MXSEEK 

REV 

0 

5000. 

.•FORWARD 
.•REVERSE 
;N0 LOWER LIMIT 
;HI LIMIT (50.0MS) 


001710 040056 
001712 003075 
001714 003277 


001716 

001720 

001722 


001724 

001726 

001730 

001732 

C01734 

001736 

001740 

001742 

001744 


001746 

001750 

001760 

001762 


040056 

003075 

003277 


040131 

000000 

001130 

040173 

000000 

004704 

040235 

000000 

011610 


041076 

000000 

041140 

041177 


; SPECS. MESSAGE TABLES FOR ROTATIONAL AND TIMING TESTS 

.•ROTATIONAL MESSAGE AND LO/HI LIMITS 
;60HZ TABLE 

SP11A: .WORD MSG11X 

.WORD 1597. ;L0 LIMIT (16.67MS - 4.3*) 

IWORD 1727. ;HI LIMIT (16.67MS ♦ 3.5*) 


;50HZ TABLE 

SP11B: .WORD MSG11X 
.WORD 1597. 
.WORD 1727. 


;L0 LIMIT (16.67MS - 4.3*) 
;HI LIMIT (16.67MS ♦ 3.5X) 


.•TIMING TEST MESSAGES AND LO/HI LIMITS 

SP12: .WORD HSG12X ^ fMfT 

.WORD 0 ;N0 LOWER LIMIT 

.WORD 600. ;HI LIMIT (6.0MS) 


000000 000000 


SP13- .WORD MSG13X 

.WORD 0 ;N0 

.WORD 2500. ;HI 

SP14: .WORD MSG14X 

.WORD 0 ;N0 

.WORD 5™0. ;HI 

.•STATUS/ERROR MESSAGE POINTER TABLE 

STAT8L: .WORD MSGB14 ;0F 

.WORD C ,0.0.0 ;FI 

.WORD MSGB09 ;S0 

.WORD MSGB08 ; SO 


;N0 LOWER LIMIT 
;HI LIMIT (25. OF 


;N0 LOWER LIMIT 
;HI LIMIT (50.0MS) 


OFFLINE OR UNSAFE DRIVE REQUESTED 
FILLER WORDS 

SOFTWARE TIMEOUT ON THIS DRIVE 
SOFTWARE TIMEOUT ON ANOTHER DRIVE 
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001 764 
001766 
001770 
001772 
001 774 
001776 


041241 

041305 

041355 

000000 

041375 

041445 


.WORD HSG806 
.WORD MSG805 
.WORD MSG804 
.WORD 0 
.WORD MSG802 
.WORD MSG801 



SEO 0035 


J 3 


ERROR OCCURRED DURING I/O OPERATION 
ERROR OCCURRED DURING NON I/O OPERATION 


luucArp nrniORFr) 


FILLER WORD , 

DRIVE HAS NOT RESPONDED TO PORT REQUEST 
DRIVE HAS BECOME NONEXISTENT 



\jy *■ Oi rvj -» O «0 00 -«g O' Vt M r\j -* © O 00 >J O' VI <» M f\> -» © 'O 0D >J O Ul <>“ M »\i -» O *0 OB >J O VI ^ 


CZRNGAO RH80 FCTNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 8 
ERROR POINTER TABLE 


K 3 


SEQ 0036 


002000 


002000 040311 
002002 041503 
002004 042754 
002006 043364 


002010 040363 
002012 041520 
002014 042760 
002016 043370 


002020 000000 
002022 000000 
002024 000000 
002026 000000 


002030 000000 
002032 000000 
002034 000000 
002036 000000 


.SBT1L ERROR POINTED TABLE 


*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. r HIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•N0TE1 : IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

•N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


EM 

DH 

DT 

DF 


POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 


SERRTB: 

; ‘ERROR 1 

;* RH CONTROLLER INTERRUPT OCCURED (RMAS~0) 

;* ERR PC RMAS 

;* SERRPC SREG3 

EMI 

DHl 

DTI 

DF1 

; ‘ERROR 2 


UNEXPECTED ATTENTION OCCURRED 
ERR PC DRIVE RMAS RMDS 

SERRPC SREG1 SREG3 RMERRS 


EM2 
D 2 
DT2 
DF2 


RMER1 RMMR2 RMER2 
RMERRS+2 RMERRS+4 RMERRS+4 


; ‘ERROR 3 -- NOT USED 

0 

0 

0 

0 


; ‘ERROR 4 


0 

0 


; ‘ERROR 5 


NOT USED 


;* ADDRESS PLUG CHANGE BIT SET 

;* ERR PC DRIVE RMAS RMDS RMER1 RMMR2 RMER2 

;* SERRPC SREG1 SREG3 RMERRS RMERRS+2 RMERRS* 4 RMERRS +6 
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SEO 0037 


46 

47 002040 

48 002042 

49 002044 

50 002046 

51 

52 

53 

54 002050 

55 002052 

56 002054 

57 002056 

58 

59 

60 

61 002060 
62 002062 

63 002064 

64 002066 

65 

66 

67 

68 

69 

70 

71 

72 002070 

73 002072 

74 002074 

75 002076 

76 

77 

78 

79 

80 
81 
82 

83 002100 

84 002102 

85 002104 

86 002106 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 002110 

98 002112 

99 002114 
100 002116 
101 

102 


040421 

041520 

042760 

043370 


000000 

000000 

000000 

000000 


000000 

000000 

000000 

000000 


040455 

041605 

043016 

043404 


040533 

041624 

043022 

043410 


040570 

041643 

043026 

043414 


; ‘ERROR 6 — NOT USED 


; ‘ERROR 7 — NOT USED 


; ‘ERROR 


RH CONTROLLER FAILED TO RESPOND TO ADDRESSING 
RMCS1 ERR PC 
RH.ADR SERRPC 


.•‘ERROR 11 


DRIVE SELECTED IS NOT ONLINE 
DRIVE ERR PC 
SREG2 SERRPC 


.•‘ERROR 12 


IMPROPER HEADER DATA 

TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 

STMPO SERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 

GDCYL GDTRK GDSCTR BDCYL BDTRK BDSCTR 

CYL.DS TRK.DS SEC.DS CYL.RD TRK.RD SEC.RD 

CYLNDR, TRACK, AND SECTOR ARE DECIMAL 


.•‘ERROR 13 
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SEO 0036 


103 

104 

105 

106 

107 

108 

109 

110 

111 002120 
112 002122 

113 002124 

114 002126 

11 5 

116 

117 

118 

119 

120 002130 

121 002132 

122 002134 

123 002136 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 002140 

135 002142 

136 002144 

137 002146 

138 

139 

140 

141 

142 

143 002150 

144 002152 

145 002154 

146 002156 

147 

148 

149 

150 

151 

152 

153 

154 002160 

155 002162 

156 002164 

157 002166 


040615 

041643 

043060 

043424 


000000 

000000 

043076 

043434 


040615 

041643 

043060 

043424 


000000 

000000 

043076 

043434 


040642 

042057 

043110 

043440 


DATA COMPARE FAILURE 

TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 

STMPO SERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 

GDDAT BDDAT URDCNT GDADR BDADR 

SGDDAT SBDDAT SREG4 SGDADR SBDADR 

CYLNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL 


.-•ERROR 14 — FOLLOWS #13 

;• SGDDAT SBDDAT SREG4 SGDADR SBDADR 

0 

0 

DT13A 

DF14 

; ‘ERROR 15 

;• DATA COMPARE FAILURE 

;* TEST ERR PC TST PC DRIVE CYLNDR TRACK 

;• STMPO SERRPC SREGO CHKDRV CYL.DS THK.DS 

;• GDDAT BDDAT URDCNT GDADR BDADR 

;• SGDDAT SBDDAT SREG4 SGDADR SBDADR 

;* CYLNDR, TRACK, SECTOR. AND WRDCNT ARE DECIMAL 


SECTOR 

SEC.DS 


; ‘ERROR 16 — FOLLOWS #15 

;* SGDDAT SBDDAT SREG4 SGDADR SBDADR 

0 

0 

DT13A 

DF14 

; ‘ERROR 17 

;• DISK ERROR IN TIMING TEST 

;* TEST ERR PC DRIVE RMCS1 RMDS RMER1 RMMR2 RMER2 
;* STMPO SERRPC CHKDRV RM.PEG RM.REG+12 RH.REG+14 RM.REG+40 RM.REG+42 


.-•ERROR 20 
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SEQ 0039 


160 

161 

162 

163 

164 

165 002170 

166 002172 

167 002174 

168 002176 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 002200 

180 002202 

181 002204 

182 002206 

183 

184 

185 

186 

187 

188 002210 

189 002212 

190 002214 

191 002216 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 002220 
202 002222 

203 002224 

204 002226 

205 

206 

207 

208 

209 

210 
211 
212 
215 

214 002230 

215 002232 

21 6 002234 


040674 

042057 

043110 

043440 


040615 

042154 

043130 

043444 


000000 

000000 

043144 

043454 


040743 

042271 

043154 

043460 


* CLOCK (KW11-P) OVERFLOW IN TIMING TEST 

* TEST ERR PC DRIVE RMCS1 RMDS RMER1 RMMR2 RMER2 

* STMPO SERRPC CHKDRV RM.REG RM.RES+12 RM.REG+14 RM.REG+40 RM.REG+42 

EM20 

DH17 

DT17 

DF17 


TRACK 

TRK.DS 


; ‘ERROR 21 

;* DATA COMPARE FAILURE 
;* TEST ERR PC TST PC DRIVE CYLNDR 

;« STMPO SERRPC SREGO CHKDRV CYL.DS 

;* GDDAT BDDAT WRDCNT SECTOR 

;* SREG1 S8DDAT SREG4 SREG1 

;* CYLINDR, TRACK, WRDCNT, AND SECTOR ARE DECIMAL 

EMI 3 
DH21 
DT21 
DF 21 


SREG1 


040772 

042271 

043154 


; ‘ERROR 22— FOLLOWS #21 

;* SREG1 S8DDAT SREG4 

0 

0 

DT21A 

DF22 

; ‘ERROR 23 

;* DISK ERROR DURING SEEK 

;* TEST ERR PC DRIVE CYLNDR RMCS1 RMCS2 RMDS 

;* STMPO SERRPC CHKDRV CYL.DS RM.REG RM.REG+10 RM.REG+12 

* RMER1 RMMR2 RMER2 RMDC , RHHR , 

;* RM.REG+14 RM.REG+40 RM.REG+42 RM.REG+34 RM.REG+36 

EM23 

DH23 

DT23 

DF23 

; *ERROR 24 

;* SEEK NOT COMPLETE WITHIN 120 MS 

;* TEST ERR PC DRIVE CYLNDR RMCS1 RMCS2 RMDS 

;* STMPO SERRPC CHKDRV CYL.DS RM.REG RM.REG+10 RM.REG+12 

* RMER1 RMMR2 RMER2 ^ RMDC RMHR 

;* RM.REG+14 RM.REG+40 RM.REG+42 RM.REG+34 RM.REG+36 

EM24 

DH23 

DT23 
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SEQ 004 


217 002236 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 002240 

235 

236 

237 

238 

239 

240 

241 

242 002240 

243 002242 

244 002244 

245 002246 

246 

247 

248 

249 

250 

251 

252 

253 002250 

254 002252 

255 002254 

256 002256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 002260 

267 002262 

268 002264 

269 002266 

270 

271 

272 

273 


043460 


041032 

042423 

043204 

043470 


041032 

042461 

043214 

043474 


041032 

042461 

043232 

043500 


OF 23 


ERRORS 23-40 NOT USED 
ERRORS 41-46 WILL HAVE AN EM THAT 

VARIES DEPENDING ON THE ERROR, IT WILL BE IN THE FORM: 
RH/RM ERROR (MESSAGE) . „ 

WHERE MESSAGE WILL BE ONE OR MORE OF THE FOLLOWING: 

1) OFFLINE DRIVE REQUESTED 

3) SOFTWARE TIMEOUT ON THIS DRIVE 

4) SOFTWARE TIMEOUT ON ANOTHER DRIVE 

5) ERROR OCCURRED DURING I/O OPERATION 

6) ERROR OCCURRED DURING NON-I/O OPERATION 

7) UNSAFE OCCURED 

ITEM41: 


; ‘ERROR 41 

;‘ RH/RM ERROR (MESSAGE) 

;‘ TEST ERR PC TST PC 

;* STMPO SERRPC SREGO 

EM41 

DH41 

DT41 

DF41 

; ‘ERROR 42 

;* RH/RM ERROR (MESSAGE) 

;‘ TEST ERR PC TST PC 

;* STMPO SERRPC SREGO 

EM41 

DH42 

DT42 

DF42 

; ‘ERROR 43 


DRIVE 

CHKDRV 


DRIVE 

CHKDRV 


RMCS1 

RM.REG 


RMCS2 RMDS 
RM.REG‘10 RM. REG^ 


• * 
• 

;* 

;* 

;* 
• * 


RH/RM ERROR (MESSAGE) 
TEST ERR PC TST PC 

STMPO SERRPC SREGO 

RMER1 RMMR2 


DRIVE 

CHKDRV 

RMER2 


RMCS1 

RM.REG 


RMCS2 RMDS 
RM.REG+10 RM.REG+12 


RM.REG‘14 RM.REG+40 RM.REG‘42 


EM41 

DH42 

DT43 

DF43 

.-‘ERROR 44 

;* RH/RM ERROR (MESSAGE) 
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ScQ 0041 


274 

275 

276 

277 

278 

279 

280 
281 

282 002270 

283 002272 

284 002274 

285 002276 

286 
287 
2 88 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 002300 

299 002302 

300 002304 

301 002306 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 002310 

315 002312 

316 002314 

317 002316 


TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 

STMPO JERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 

RMCS1 RHCS2 RMDS RMHR RMDC RMDA 
RM.REG RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06 
RMER1 RMMR2 RMER2 

RM.REG+14 RM.RE6+40 RM.REG+42 

CYLNDR, TRACK, AND SECTOR ARE DECIMAL 


041032 

041643 

043256 

043510 


;*ERROR 45 


RH/RM ERROR (MESSAGE) _ 

TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 

STMPO JERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 

RMCS1 RMCS2 RMDS RMHR RMDC RMDA 

RM.REG RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06 

RMER1 RMMR2 RMER2 RMWC RMBA RMDB 

RM.REG+14 RM.REG +40 RM.REG+42 RM.REG+2 RM.REG+4 RM.REG+22 

CYLNDR, TRACK. AND SECTOR ARE DECIMAL 


041032 

041643 

043316 

043524 


.-•ERROR 46 


FATAL WRITE CHECK ERROR (MESSAGE) 

TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 

STMPO SERRPC SREGO CHKDRV CYL.DS TRK.DS SEC.DS 

RMCS1 RMCS2 RMDS RMHR RMDC RMDA 

RM.REG RM.REG+10 RM.REG+12 RM.REG+36 RM.REG+34 RM.REG+06 

RMER1 RMMR2 RMER2 R*fC RMBA RMDB 

RM.REG+14 RM.REG+40 RM.REG+42 RM.REG+2 RM.REG+4 RM.REG+22 

CYLNDR, TRACK, AND SECTOR ARE DECIMAL 


041046 

041643 

043316 

043524 


D 4 
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1 



.SBTTL 

TEST PARAMETER POINTERS AND TABLES 



2 

3 



; COMMON 

STORAGE 

FOR TEST PARAMETER 



4 

002320 

000000 

PRM: 

.WORD 

0 

THIS WORD TELLS WHICH 

OF 

THE 

5 





FOLLOWING PARAMETERS 

IRE 

TO BE USED 

6 

002322 

000000 

RPT : 

.WORD 

0 

REPEAT COUNTS FOR ALL 

TESTS 

7 

002324 


FC 


.WORD 

0 

FIRST CYLINDER 



8 

002326 

000000 

LC 


.WORD 

0 

LAST CYLINDER 



9 

002330 

I'l' Ml* . 

IC 


.WORD 

0 

INCREMENT CYLINDER 



10 

002332 

■a* * 

FT 


.WORD 

0 

FIRST TRACK 



11 

002334 

000000 

LT 


.WORD 

0 

LAST TRACK 



12 

002336 

000000 

IT 


.WORD 

0 

INCREMENT TRACK 



13 

002340 

Eli Wfl 

FS 


.WORD 

0 

FIRST SECTOR 



14 

002342 


L$ 


.WORD 

0 

LAST SECTOR 



15 

16 
17 

002344 

000000 

PAT: 

.WORD 

0 

PATTERN CODE 



002346 

000000 

NCI: 

.WORD 

0 

NEW CYLINDER ADDRESS 



18 

19 

20 

002350 

000000 

NC2: 

.WORD 

0 

■NEW CYLINDER ADDRESS 





.-TABLE 

OF PARAMETER POINTERS 




21 

002352 

002726 

PRMPT: 

.WORD 

PRMO 




24 

002354 

002742 




PRM1 





002356 

002764 



Pi' iVi 1 ®? 

PRM2 





002360 

003002 




PRM3 





002362 

003020 



H'VniM 

PRM4 





002364 

003036 



ru r!‘ i Hr 

PRM5 





C02366 

003054 




PRM6 





002370 

003072 



®l' yj; »M 

PRM7 





002372 

003106 



ft V H 

PRM10 





002374 

003124 




PRM11 





002376 

003136 




PRM12 





002400 

003146 



.WORD 

PRM13 





002402 

003156 



.WORD 

PRM14 





002404 

003166 



.WORD 

PRM15 




25 

26 
27 

002406 

000000 



.WORD 

0 

.•TERMINATOR 





.•TABLE 

OF PARAMETER UPPER LIMITS 




28 

002410 

077777 

PRMLMT : 

.WORD 

32767. 




29 

002412 

001060 



.WORD 

560. 

•TC" 



30 

002414 

001060 



.WORD 

560. 

‘■LC'* 



31 

002416 

001060 



.WORD 

560. 

"IC** 



32 

002420 

000015 



.WORD 

13. 

•■FT" 



33 

002422 

000015 



.WORD 

13. 

'IT" 



34 

002424 

000015 



.WORD 

13. 

"IT" 



35 

002426 

000036 



.WORD 

30. 

"FS" 



36 

002430 

000036 



.WORD 

30. 

*1S" 

•T>AT" 



37 

38 

39 

002432 

177777 



.WORD 

177777 





.•TABLE 

OF MESSAGE POINTERS 




40 

002434 

036710 

PRMMSG : 

.WORD 

MSG.R 




41 

002436 

036712 



.WORD 

MSG.FC 




4 2 

002440 

036715 



.WORD 

MSG.LC 




43 

002442 

036720 



.WORD 

MSG.IC 




44 

002444 

036723 



.WORD 

MSG. FT 




45 

002446 

036726 



.WORD 

HSG.LT 




46 

002450 

036731 



.WORD 

MSG. IT 




47 

002452 

036734 



.WORD 

MSG.FS 
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test parameter pointers and tables 


JEQ 0043 


48 002454 

49 

50 

51 

52 

53 002456 

54 002472 

55 002514 

56 002532 

57 002550 

58 002566 

59 002604 

60 002622 

61 002636 

62 002654 

63 002666 

64 002676 

65 002706 

66 002716 

67 

68 

69 

70 

71 002726 

72 002730 

73 002732 

74 002734 

75 002736 

76 002740 

77 

78 

79 002742 

80 002744 

81 002746 

82 002750 

83 002752 

84 002754 

85 002756 

86 002760 

87 002762 

88 

89 

90 002764 

91 002766 

92 002770 

93 002772 

94 002774 

95 002776 

96 003000 


036737 


000227 

000677 

000237 

000237 

000237 

000237 

000237 

000067 

00C237 

000223 

000007 

000007 

000007 

000007 


000227 

000310 

000000 

001060 

000000 

000000 


000677 

000144 

000000 

000400 



000237 


001060 


000000 



1 

1 

A 

• 

1 

• 

T 

i 

t 

i 

i 

V 

A 

• 

i 

* 

T 

• 

i 

• 

A 

• 

• 

• 

» 

• 

• 

• 

> 

i 

i 

• 

i 

i 

• 

• 


.WORD MSG.LS 

.■STATUS/ERROR INDICATOR MESSAGES POINTER TABLE 
.•DEFAULT VALUES OF TEST PARAMETERS 


000310 000000 
000144 OOOOOC 
000001 000000 
000010 000000 
000001 000000 
000001 000000 
000001 000000 
011610 000000 
00C001 000000 
000001 000000 
1 


DFLT: .WORD 227.200. .0.560. .0.0 

.WORD 677.100. .0,256. .0.0.0 
.WORD 237. 1.0. 560.. 1.0.0 
.WORD 237, 10 .6. 51 2.. 1.6.0 

.WORD 237,1,6,560.^.6,6 
.WORD 237, 1.0, 560.. 1,0,0 
.WORD 237,1 .0,560. ,1 ,0.0 
.WORD 67,5060. .0.560. .6.13. 
.WORD 237. 1.0. 566. ,1,6. 6 
.WORD 223.1.0.0.0 
.WORD 7,1,0,560. 

.WORD 7,1,0,155. 

.WORD 7,1,0,560. 

.WORD 7.1,0.560. 

.•PARAMETER TABLES 

; RE CAL /RANDOM SEEK (TO) 

PRMO: .WORD 227 

.WORD 200. 

.WORD 0 
.WORD 560. 

.WORD 0 
.WORD 0 

;SEEK/SEEK (T1) 

PRM1 : .WORD 677 

.WORD 100. 

.WORD 0 
.WORD 256. 

.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
.WORD 0 

.•INCREMENT SEEK <T2> 

PRM2: .WORD 237 

.WORD 1 
.WORD 0 
.WORD 560. 

.WORD 1 
.WORD 0 
.WORD 0 


:RECAL/RANDOM SEEK (TO) 

,0,6 ; SEEK/SEEK (T1) 

.•INCREMENT SEEK (T2> 

.•STEPPING SEEK (T3) 

.•OSCILLATING SEEK (T4) 
.•CONVERGING/DIVERGING SEEK (T5> 

.•SERVO ADDRESSING LOGIC NOISE (T6> 
.RANDOM SEEK TEST <T7) 

.-ALL SEEKS TEST (T10) 

.•ROTATIONAL SPEED TIMING TEST (Til) 
.-ONE CYLINDER SEEK TIMING TEST (T12) 
.•AVERAGE SEEK TIMING TEST (T13) 
.•MAXIMUM SEEK TIMING TEST (T14) 

;AVG. SEEK TIME MEASUREMENT TEST (T15) 


98 

99 003002 

000237 

.•STEPPING SEEK 
PRM3: .WORD 

(T3) 

237 

100 003004 

000001 

.WORD 

1 

101 003006 

000000 

.WORD 

0 

102 003010 

001000 

.WORD 

512 

103 003012 

000001 

.WORD 

1 

104 003014 

000000 

.WORD 

0 


i 

i 
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F <. 


EO 0044 


105 

003016 

000000 

.WORD 

0 

106 





107 



.•OSCILLATING SEEK (74) 

108 

003020 

000237 

PRM4: .WORD 

237 

109 

003022 

000001 

.WORD 

1 

110 

003024 

000000 

.WORD 

0 

111 

003026 

001060 

.WORD 

560. 

112 

003030 

000001 

.WORD 

1 

113 

003032 

000000 

.WORD 

0 

114 

115 

116 

003034 

000000 

.WORD 

0 



.•CONVERGING/DIVERGING SEEK (75) 

117 

003036 

000237 

PRM5: .WORD 

237 

118 

003040 

000001 

.WORD 

1 

119 

003042 

000000 

.WORD 

0 

120 

003044 

001060 

.WORD 

560. 

121 

003046 

000001 

.WORD 

1 

122 

003050 

000000 

.WORD 

0 

123 

003052 

000000 

.WORD 

0 

124 





125 



.‘SERVO ADDRESSING LOGiC NOISE GENERATOR (76) 

126 

003054 

000237 

PRM6: .WORD 

237 

127 

003056 

000001 

.WORD 

1 

128 

003060 

000000 

.WORD 

0 

129 

003062 

001060 

.WORD 

560. 

130 

003064 

000001 

.WORD 

1 

131 

003066 

000000 

.WORD 

0 

132 

003070 

000000 

.WORD 

0 

133 





134 



; RANDOM SEEK TEST (T7) 

135 

003072 

000067 

PRM7: .WORD 

67 

136 

003074 

011610 

.WORD 

5000. 

137 

003076 

000000 

.WORD 

0 

138 

003100 

001060 

.WORD 

560. 

139 

003102 

000000 

.WORD 

0 

140 

003104 

000015 

.WORD 

13. 

141 





142 



;ALL SEEKS TEST (T10) 

143 

003106 

000237 

PRM10: .WORD 

237 

144 

003110 

000001 

.WORD 

1 

145 

003112 


.WORD 

0 

146 

003114 

001060 

.WORD 

560. 

147 

003116 


.WORD 

1 

148 

003120 

000000 

.WORD 

0 

149 

003122 

000000 

.WORD 

0 

150 





151 



.•ROTATIONAL SPEED TIMING TEST (Til) 

152 

003124 

000223 

PRM11: .WORD 

223 

153 

003126 

000001 

.WORD 

1 

154 

003130 

000000 

.WORD 

0 

155 

003132 

000000 

.WORD 

0 

156 

003134 

000000 

.WORD 

0 

157 





158 



.-ONE CYLINDER 

SEEK TIMING TEST (T12) 

159 

003136 

000007 

PRM12: .WORD 

7 

160 

003140 

000001 

.WORD 

1 

161 

003142 

000000 

.WORD 

0 


G 4 
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003144 001060 


162 

163 

164 

165 003146 

166 003150 

167 003152 

168 003154 

169 

170 

171 003156 

172 003160 

173 003162 

174 003164 

175 

176 

177 003166 

178 003170 

179 003172 

180 003174 

181 
465 
473 
481 
486 
511 
529 
536 
540 
549 
553 
572 
581 

587 

588 
598 
608 


000007 

000001 

000000 

000233 


000007 

000001 

000000 

001060 


000007 

000001 

000000 

001060 


.WORD 560. 

.•AVERAGE SEEK TIMING TEST <T13> 
PRM13: .WORD 7 
.WORD 1 
.WORD 0 
.WORD 155. 

.•MAXIMUM SEEK TIMING TEST (T14) 


PRM14 


.WORD 

.WORD 

.WORD 

.WORD 


60. 


.•AVERAGE SEEK TIME MEASUREMENT TEST (T15) 


PRM15: 


.WORD 

.WORD 

.WORD 

.WORD 


60. 



H 4 


SEQ 0046 
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0031 76 
003200 
003202 
003204 
003210 


003250 

7 003250 

8 00325? 

9 003254 
10 

11 003256 

12 

13 

14 


17 


21 


24 


27 


31 

32 


011600 

005740 

022626 

104401 

000417 


010046 

104402 

000240 

000404 


003212 


; THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 

BADTMO: MOV <SP),RO .‘SAVE PC WHERE THE TIME OUT OCCURED 

TST -<R05 .ADJUST PC -2 

CMP (SP)*.(SP>* .-RESTORE STACK POINTER 

TYPE .65$ .-.-TYPE ASCIZ STRIN6 

BR 64$ ;;GET OVER THE ASCIZ 

.ASCIZ <CRLF >/UNEXPE CTED BUS TIMEOUT. PC=/ 


;;65$: 

64$: 


MOV 

TYPOC 

NOP 

BR 


RO.-(SP) 


START1 


.-SETUP FOR TYPING OUT PC 

.-PUT 'HALT(O)' INSTRUCTION HERE IF YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 

.-BRANCH TO START1 






.S8TTL 

START 

OF PROGRAM 


003260 

003266 

012737 

000402 

177777 

001324 

START3: 

MOV 

BR 

#-l, BUSADR 
STRT1A 

.-GET BUSADR FLAG 

003270 

003274 

003300 

005037 

005037 

000411 

001324 

001322 


START 1 : 
STRT1A: 

CLR 

CLR 

BR 

BUSADR 

CNTRLC 

START 

;CLR BUSADR FLAG 
;N0 CONTROL “C“ 

003302 

003310 

012737 

000402 

177777 

001324 

START4: 

MOV 

BR 

#-1 .BUSADR 
STRT2A 

.-SET BUSADR FLAG 

003312 

003316 

005037 

012737 

001324 

177777 

001322 

START2: 

STRT2A: 

CLR 

NOV 

BUSADR 
#-1, CNTRLC 

;CLR BUSADR FLAG 
.-SET CONTROL “C" FLAG 

003324 

003330 

003332 

005227 

001375 

000005 

000000 


START: 

INC 

BNE 

RESET 

#0 

.-4 

;TTY LOOP. WAIT FOR INCREMENT 
;0F WORD 

.-CLEAR THE WORLD 


003334 

003340 

003342 

003346 

003350 

003354 

003362 

003370 

003376 

003404 

003412 

003420 

003426 

003434 

003442 

003446 

003452 

003460 

003466 


012706 

005026 

022706 

001374 

012706 

012737 

012737 

012737 

012737 

012737 

012737 

013737 

012737 

012737 

005037 

005037 

112737 

012737 

012737 


001114 

001154 

001100 

021432 

000340 

015674 

000340 

022126 

000340 

015322 

176543 

123456 

001220 

001222 

000001 

003460 

003466 


.S8TTL 
;; CLEAR 


INITIALIZE 
THE COMMON 


MOV 


THE COMMON TAGS 
TAGS <$CMTAG) AREA 



CLR 


CMP 


BNE 


NOV 


;; INITIALIZE 

000020 

MOV 

000022 

MOV 

000030 

NOV 

000032 

MOV 

000034 

MOV 

000036 

015314 

MOV 

NOV 

022600 

NOV 

022602 

MOV 


CLR 


CLR 

001131 

MOVB 

001122 

MOV 

001124 

MOV 


.-.-FIRST LOCATION TO BE CLEARED 
;; CLEAR MEMORY LOCATION 
.-.-DONE? 

.-.-LOOP BACK IF NO 
;; SETUP THE STACK POINTER 


#$CMTAG.R6 
<R6>* 

#SUR.R6 

fSTACK.SP 
FEW VECTORS 

#$SCOPC.a#IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
#340.B#IOTVEC+2 ; .-LEVEL 7 

#$ER$OR,»#ENTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
#340.a#ENTVEC*2 ; .‘LEVEL 7 „ „ 

#$TRAP . BfTRAPVE C .-.-TRAP VECTOR FOR TRAP CALLS 
#340.B#TRAPVEC*2;LEVEL 7 


$ENDCT.$EOPCT 
#17654S.$HINUM 
#1 23456, $LONUh 
$TIMES 
$ESCAPE 
#1 ,$ERMAX 
#..$LPADR 
#..$LPERR 


; .-SETUP END -OF -PROGRAM COUNTER 
.-.-PRIME THE RANDOM NUMBER GENERATOR 
,-,-BOTH HIGH AND LOU WORDS 
;; INITIALIZE NUMBER OF ITERATIONS 
; .-CLEAR THE ESCAPE ON ERROR ADDRESS 
; .-ALLOW ONE ERROR PER TEST 
;; INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 


.-.-SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
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SEQ 0047 


0034 7 4 
003500 
003506 
003514 
003522 
003530 


003532 

003534 

003540 

003542 

003550 

003556 

003562 

003566 

003574 

003576 

003604 

33 

34 003604 

35 003612 

36 

37 

003620 

003624 

003626 

003634 

003636 

003642 

003714 

003714 

003720 

003722 

003730 

003732 

003740 

003742 

003744 

003746 

003754 

38 

39 003754 

40 003760 
4* 003762 

42 003766 

43 003770 

44 003776 

45 

46 

47 

48 

49 004004 


Cl 3746 
012737 
012737 
012737 
022777 
001012 

000403 

012716 

000002 

012737 

012737 

012637 

005037 

132737 

001403 

012737 


012737 

012737 


005227 

001033 

022737 

001427 

104401 

000424 


005737 

001012 

123727 

001406 

023727 

001005 

104406 

000403 

112737 


012700 

005020 

022700 

001374 

013737 

C13737 


000004 

003534 

177570 

177570 

177777 


003542 

000176 

000174 

000004 

001242 

000200 


000004 

001154 

001156 

175424 


001154 

001156 


001255 


001256 001154 


003176 

000300 


177777 


001224 

001550 

001552 


; ; EQUAL TO A 
MOV 


I", SETUP FOR A SOFTWARE SWITCH REGISTER. 
8#ERRVEC,-(SP) ; ; SAVE ERROR VECTOR 
#64$,i#ERRVEC ;;$ET UP ERROR VECTOR 
fDSWR.SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 

fDDISP.DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
#-1.8SWR ;;TRY TO REFERENCE HARDWARE SWR 

66$ ;;8RANCH IF NO TIMEOUT TRAP OCCURRED 

; ; AND THE HARDWARE SWR IS NOT = -1 
65$ .'.'BRANCH IF NO TIMEOUT 

#65$. (SP) ;.SET UP FOR TRAP RETURN 

#SWREG,SWR ;; POINT TO SOFTWARE SWR 


#SWREG.SWR ;; POINT TO SOFTWARE SWF 
#D I SPREG.DI SPLAY 

<SP)*,8#ERRVEC ;; RESTORE ERROR VECTOR 


000004 

000006 


$PASS 

#APTSIZE.$ENVM 

67$ 

#$SUREG.SWR 


;; CLEAR PASS COUNT 
.‘.'TEST USER SIZE UNDER APT 
.* ; YES, USE NON-APT SWITCH 
;;NO,USE APT SWITCH REGISTER 


.•SETUP ‘TIMEOUT'* TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 

MOV #8ADTM0,ERRVEC .'SETUP FOR UNEXPECTED TIMEOUT 

MOV #PR6,£RRVEC+2 ; LEVEL 6 


.S8TTL 

.-.-type 


015366 000042 
003644 


000042 

001254 000001 
001154 000176 


000001 001150 


001174 


TYPE PR06RAM NAME 

THE NAME OF THE PROGRAM IF FIRST PASS 
INC #-1 .'.'FIRST TIME 

BNF 68$ ; .-BRANCH IF 

CMP #$ENDAD,3#42 ; .-ACT-11? 

BEQ 68$ ; .'BRANCH IF 

TYPE ,69$ .-.-TYPE ASCIZ 

BR 68$ ; t 'GET OVER T 

.ASCIZ 


.•FIRST TIME? 

.-BRANCH IF NO 
.-ACT-11? 

.'BRANCH IF YES 
.'TYPE ASCIZ STRING 
.GET OVER THE ASCIZ 


VV# ( « Wk • WffcH 1Mb 

<CRLF>8CZRNGA0 - RM80 FUNCTIONAL TEST, PT 48<CRLF> 


001164 

001166 


005037 001470 


.SBTTL 

GET VALUE FOR SOFTWARE SWITCH REGISTER 


TST 

B#42 

;;ARE WE RUNNING UNDER XXDP/ACT? 


BNE 

70$ 

; .'BRANCH IF YES 


CMP8 

$ENV,#1 

;;ARE WE RUNNING UNDER APT? 


BEQ 

70$ 

; .'BRANCH IF YES 


CMP 

SWR,#SWREG 

;; SOFTWARE SWITCH REG SELECTED? 


BNE 

71$ 

;, ‘BRANCH IF NO 


GTSWR 


;;GET SOFT-SWR SETTINGS 


BR 

71$ 


70$: 

Hove 

#1 ,$AUTOB 

; ; SET AUTO-MODE INDICATOR 

71$: 





MOV 

#$REGAD.RO 

.•FIRST ADDRESS 

1$: 

CLR 

(R0) + 

.•CLEAR VARIABLE STORAGE 


CMP 

#$8ELL,R0 

.♦DONE? 


BNE 

1$ 

; NO— BRANCH 


MOV 

TPS,$TPS 

.•SETUP THE STATUS AND BUFFER REG’S 


MOV 

TPB,$TPB 

;FOR THE TYPE ROUTINE 

:THE FOLLOWING FINDS OUT THE 

PROGRAM CONTROL MODE: 

; PAPER 

TAPE (MANUAL), ACT11 , 

XXDP CHAIN OR DUMP 


CLR 

XXDP 

.•CLEAR ’XXDP' LOAD DEVICE STORAGE 
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GET VALUE FOR SOFTWARE 

SWITCH REGISTER 




50 

004010 

122737 

000016 

000041 


CHP8 

#16,8*41 

51 

004016 

001121 




BNE 

4 J 

52 

0C4020 

013737 

000040 

001470 


MOV 

8#40.XXDP 

53 

004026 

122737 

000007 

001470 


CMP8 

I7.XXDP 

54 

004034 

103002 




BHIS 

2$ 

55 

004036 

105037 

001470 



CLRB 

XXDP 

56 

004042 

005737 

000042 


2S: 

TST 

8#42 

57 

004046 

001425 




BEO 

3$ 

58 

004050 

104401 

004056 



TYPE 



004054 

000412 




BR 

72$ 






::73S: 

.ASCIZ 

<CRLF>/NOT 


004102 




ttt: 



59 

004102 

005046 




CLR 

-(SP) 

60 

004104 

113716 

001470 



Move 

XXDP, (SP) 

61 

004110 

104403 




TYPOS 


62 

004112 

001 




.BYTE 

1 

63 

004113 

000 




.BYTl 

0 

64 

004114 

104401 

001231 



TYPE 

.SCRLF 

65 

dd 

004120 

000460 




BR 

4$ 

OO 

67 

004122 

005227 

177777 


3$: 

INC 

#-1 

68 

004126 

001055 




BNE 

4$ 

69 

004130 

104401 

004136 



TYPE 

.75$ 


004134 

000410 




BR 

74$ 






;;75$: 

.ASCIZ 

<CRLF>/TO 1 


004156 




ftS: 



70 

004156 

005046 




CLR 

-(SP) 

71 

004160 

113716 

001470 



MOVB 

XXDP, (SP) 

72 

004164 

104403 




TYPOS 


73 

004166 

001 




.BYTE 

1 

74 

004167 

000 




.BYTE 

0 

75 

004170 

104401 

004176 



TYPE 

,7 6$ 


004174 

000432 




BR 

4$ 






;;76S: 

.ASCIZ 

/. HALT PRt 


004262 




4$: 



79 

004262 

004737 

020134 



JSR 

PC.$TKINT 

80 

004266 

005227 

177777 



INC 

#-1 

81 

004272 

001002 




BNE 

SRTINT 

82 

004274 

004737 

036276 



JSR 

PC.GETADR 

o5 

84 

004300 

105037 

001512 


SRTINT : 

CLRB 

ERRCN 

87 

004304 

105037 

001513 



CLRB 

ERRCN+1 


004310 

105037 

001514 



CLRB 

ERRCN+2 


004314 

105037 

001515 



CLRB 

ERRCN+3 


004320 

105037 

001516 



CLRB 

ERRCN+4 


004324 

105037 

001517 



CLRB 

ERRCN+5 


004330 

105037 

001520 



CLRB 

ERRCN+6 


004334 

105037 

001521 



CLRB 

ERRCN+Y 

88 

004340 

004737 

023176 



JSR 

PC.LP.AVL 

89 

004344 

012737 

000001 

001120 


MOV 

#1 ,$ICNT 

90 

004352 

004737 

026656 



JSR 

PC.GETSWR 

y I 
92 

004356 

004737 

023240 


SETVEC: 

JSR 

PC.ST.CLK 

93 

004362 

004737 

031376 



JSR 

PC.RMINIT 

94 

004366 

012737 

177777 

031330 


MOV 

I-1.SAVEFG 

95 

004374 

005037 

177776 



CLR 

PS 

96 

004400 

005227 

177777 



INC 

#-1 


J A 


LOADED FROM AN RM80 ? 

'8R IF NOT 

GET DEVICE INDICATOR AND NUMBER 
IS IT A VALID NUMBER ? 

YES 

NO, DEFAULT TO DRIVE 0 
CHAIN MODE OR ACT11 AUTO ACCEPT ? 
BA IF NEITHER 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
TESTING DRIVE / 

; CLEAR WORD ON STACK 
;GET DRIVE ADDRESS 
.-TYPE THE ADDRESS 
;ONLY 1 CHARACTER 
.SUPRESS LEADING ZEROS 
; CR-LF 

;GET NUMBER OF DRIVES 

.♦FIRST TIME THRU HERE ? 

*N0 

;; TYPE ASCIZ STRING 
:;GET OVER THE ASCIZ 


.♦CLEAR WORD ON STACK 
;GET DRIVE ADDRESS 
.♦TYPE DRIVE ADDRESS 
.♦ONLY 1 CHARACTER 
;SUPRESS LEADING ZEROS 
.♦.♦TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


TURN ON THE TTY KEYBOARD INTERRUPT 
SEE IF FIRST START 

Bf| if flOJ 

GET OR CHECK THE RH/RM ADDRESS 


sea 0048 


ERROR COUNT 
ERROR COUNT 
ERROR COUNT 
ERROR COUNT 
ERROR COUNT 
ERROR COUNT 
ERROR COUNT 
ERROR COUNT 

. ... LINE PRINTER 

SET ITERATION COUNT TO 1 
GO CHECK FOR CONTROL SWITCHES 


CLEAR DRV 0 
CLEAR DRV 1 
CLEAR DRV ‘ 
CLEAR DRV 
CLEAR DRV 
CLEAR DRV 
CLEAR DRV 
CLEAR DRV 
CHECK FOR 


INITIALIZE THE CLOCK 
CHECK THE DRIVE STATUS 
SET THE SAVE REGISTERS FLAG 
ENSURE THE PRIORITY * 0 
FIRST TIME THRU HERE ? 
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661 VALU6 FOR SOFTWARE SWITCH REGISTER 


97 

004404 

001 403 



BEO 

IS 

98 

004406 

005737 

001322 


TST 

CNTRLC 

99 

004412 

001066 



BNE 

SRTDRV 

100 

004414 

005004 


IS: 

CLR 

R4 

101 

004416 

104401 

036777 


TYPE 

.UNSTAT 

102 

004422 

10«t401 

001231 

2S: 

TYPE 

.SCRLF 

103 

004426 

0^0446 



MOV 

R4,-(SP) 


004430 

104403 



TYPOS 



004432 

002 



.BYTE 

2 


004433 

000 



.BYTE 

0 

104 

004434 

104401 

040051 


TYPE 

.BLNKS4 

105 

004440 

105764 

031242 


TSTB 

DRVSTA(R4) 

106 

004444 

10C416 



BMI 

5$ 

107 

004446 

001020 



BNE 

6$ 

108 

004450 

105764 

031252 


TSTB 

DRVTYP(R4) 

109 

004454 

001404 



BEO 

3$ 

110 

004456 

100006 



BPL 

4$ 

111 

004460 

104401 

037063 


TYPE 

.NOTRM 

112 

004464 

000433 



BR 

flS 

113 







114 

004466 

104401 

037036 

3$: 

TYPE 

.MTPRS 

115 

004472 

000430 



BR 

flS 

116 







117 

004474 

104401 

037013 

4$: 

TYPE 

.UNTOFF 

118 

004500 

000416 



BR 

6$ 

119 







120 

004502 

104401 

037053 

5$: 

TYPE 

.NOTSAF 

121 

004506 

000413 



BR 

6$ 

122 







123 

004510 

005737 

001470 

6$: 

TST 

XXDP 

124 

004514 

001406 



BEO 

7$ 

125 

004516 

123704 

001 47C 


CMP8 

XXDP.R4 

126 

004522 

001003 



BNE 

7$ 

127 

004524 

104401 

037100 


TYPE 

.LODEV 

128 

004530 

000411 



BR 

lis 

129 

004532 

104401 

037026 

7$: 

TYPE 

.UNTON 

130 

004536 

104401 

040053 

8$: 

TYPE 

.8LNKS2 

135 

004542 

012737 

037115 004552 


MOV 

#SRM80.10$ 

140 







141 

004550 

104401 


9$: 

TYPE 


142 

004552 

000000 


10$: 

.WORD 

0 

143 







144 

© 

© 

Wl 

005204 


11$: 

INC 

R4 

145 

004556 

020427 

000010 


CMP 

R4.#8. 

146 

004562 

001317 



BNE 

2$ 

147 

004564 

104401 

001231 


TYPE 

.SCRLF 


SEQ 0049 


SR IF NO 

CONTROL 'C' SWITCH SET ? 

CONTINUE IF YES 
DRIVE TABLE POINTER 
TYPE 'UNIT STATUS’ 

CR-LF 

.-SAVE R4 FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
.-TYPE 2 DIGiT(S) 

.•SUPPRESS LEADING ZEROS 
TYPE 4 BLANKS 
CHECK DRIVE’S STATUS 
BR IF UNSAFE 
BR IF ONLINE 

SEE IF OFFLINE OR NONEXISTENT 
BR IF N0NEXISTEN1 
BR IF OFFLINE 
DRIVE NOT AN RM80 
CHECK NEXT DRIVE 

; DRIVE NOT PRESENT 
; CHECK NEXT DRIVE 

[DRIVE OFFLINE 
[PRINT DRIVE TYPE 

[DRIVE UNSAFE 
[PRINT DRIVE TYPE 

[LOADED FROM THIS DEVICE ? 

’BR IF NO 

•LOADED FROM THIS DRIVE ? 

*BR IF NO 

•DRIVE IS LOAD DEVICE 

[DRIVE ONLINE 
’TYPE 2 BLANKS 

•ASSUME ADDRESS OF RM80 MESSAGE 

[TYPE THE DRIVE TYPE MESSAGE 
[MESSAGE ADDRESS HERE 

[INCREMENT DRIVE NUMBER/TABLE POINTER 
[FINISHED ? 

;BR IF NOT 
[CR-LF 




SEO 0050 


GO CLEAR MASSBUS CONTROLLER 
CONTROL "C" START/RESTART? 

NO— BRANCH 

GET THE PREVIOUS ’C.SVR’ CONTENTS 
SET UP TO SEE IF ’BITOO’ IS DIFFERENT 
IS ’BITOO* DIFFERENT ? 

BR IF NOT 

STORE PRESENT ’C.SVR’ VALUE 
RESET DETAULT PARAMETERS 
GET PARAMETERS 

ANY TEST SELECTED THIS CYCLE? 

BR IF YES 

ANY TEST SELECTED THIS CYCLE ? 

BR IF YES 

TYPE ’NO TESTS SPECIFIED’ 


SETUP DEFAULT PARAMETERS 
NO DRIVES SELECTED 
DETERMINE THE DRIVES THAT 
ARE AVAILABLE FOR TESTING 

IS DRIVE ON-LINE ? 

BR IF NO 

LOADED FROM THIS DEVICE ? 

BR IF NO 

LOADED FROM THIS DRIVE ? 

BR IF YES 

;YES, SELECT DRIVE FOR TESTING 
TRY NEXT DRIVE 
ANY MORE DRIVES TO CHECK ? 

BR IF YES 

’DRIVES(S) TO BE TESTED’ 

DETERMINE PASSES TO MAKE AND 
THE DRIVES TO BE TESTED 
ANY DRIVES SELECTED? 

YES— BRANCH 
•NONE' 

CR-LF 

ANY MONITOR PRESENT ? 

BR IF YES 

RETURN TO ’*C’ INPUT 
THESE TUO LOOPS ARE ADDED TO 
WAIT FOR TTY 


.•RETURN CONTROL TO MONITOR 

.REPORT THE DRIVES TO BE TESTED 

.-GIVE THIS DRIVE A PASS 
.-.SAVE RO FOR TYPEOUT 
; ; GO TYPE— OCTAL ASCII 
.-.-TYPE 1 DIGIT (S) 
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GET UNIT STATUS 


A 4 


SEO 0051 


005027 

000 




.BYTE 

0 

;; SUPPRESS LEADING ZEROS 

63 005030 

005701 




TST 

R1 

.MORE DRIVES? 

64 005032 

001404 




BEQ 

11$ 

; NO— BRANCH 

65 005034 

104401 

037160 



TYPE 

.COMMA 

. » • 

• 9 

66 005040 

005200 


10$: 

INC 

RO 

.-FORM DRIVE NUMBER 

67 005042 

68 

69 005044 

000763 




BR 

9$ 


104401 

001231 


11$: 

TYPE 

,$CRLF 

$ENDCT,$EOPCT 

; CR-LF 

70 005050 

013737 

015322 

015314 


MOV 

;IS KU11-P AVAILABLE ? 

71 005056 

005737 

001342 



TST 

CLKSTA 

72 005062 

003006 




BGT 

12$ 

;BR IF YES 

73 005064 

032737 

017000 

001332 


BIT 

#17000, TSTNMS 

.-ANY TIMING TESTS TO BE PERFORMED ? 

74 005072 

001402 




BEQ 

12$ 

;BR IF NO 

75 005074 

104401 

037166 



TYPE 

.NOCLOK 

.•TYPE NO KW11-P CLOCK MESSAGE 

76 005100 

000414 



12$: 

BR 

RSTRT1 



N 4 
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1 

2 

3 

5 005102 

6 005106 

7 005110 

8 005114 

9 005116 

10 005122 

11 005126 

12 

13 005132 

14 005136 

15 005144 

16 005152 

17 005154 

18 005160 

19 005164 

20 005166 

21 

22 005170 

23 005174 

24 005200 

25 005202 

26 005204 

27 005212 

28 005216 

29 

30 005220 

31 005224 

32 005230 

33 005234 

34 005240 

35 005244 

36 005250 

37 005254 

38 005262 

39 005270 

40 005276 

41 005300 

42 005304 

43 005312 

44 005316 

45 005324 

46 005330 

47 005334 

48 005340 
005342 
005344 
005345 


.S8TTL PROGRAM RESTARTS HERE 


005737 

001022 

005737 

001402 

000137 

104401 

000137 

005037 

012737 

033737 

001006 

005237 

106337 

103762 

000766 

013702 

105762 

003007 

104011 

043737 

005337 

000731 

004737 

005037 

010237 

010237 

010237 

010237 

004737 

012737 

112737 

032737 

001402 

105037 

112737 

004037 

112737 

004037 

104401 

104401 

010246 

104403 

002 

000 


001330 

000042 

015356 

037351 

003312 

001352 

000001 

001354 

001352 

001354 


001352 

031242 


001354 

015314 


023146 

177776 

036506 

036530 

036552 

036574 

024032 

015142 

000020 

000001 

036507 

000143 

024076 

000107 

024076 

001231 

037273 


.ENABL 
RSTART : 


001354 

001330 


RSTRT1 ; 


001330 


001350 

036507 

001314 


036510 

036510 


JSR 

CLR 

MOV 

MOV 

MOV 

MOV 

JSR 

hov 

M0V8 

BIT 

BEQ 

CLRB 

nova 

JSR 

movb 

JSR 

TYPE 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 


ORVSEL 

3$ 

a*4 2 
1 $ 

SGET42 
.NODR VS 
START2 

CHKDRV 

#1,DRVMSK 

DRVMSK.DRVSEL 

4$ 

CHKDRV 

DRVMSK 

RSTRT1 

2 $ 

CHKDRV. R2 
DRVSTA(RZ) 

5$ 

11 

DRVMSK.DRVSEL 

SEOPCT 

RSTART 

PC.CNTCLR 

PS 

R2.DPB.A 

R2.DP8.B 

R2.DP8.C 

R2.DTADPB 

PC.LDCMD 

#SEOP. BYPASS 

#20,DPB.A+1 

*8IT00,C.SyR 

6 $ 

DP8.A+1 

#SETF0RM.DP8.A+; 

RO.CALL.A 

#RECAL.DPB.A*2 

RO.CALL.A 

.SCRLF 

.MSDRIV 

fo.-CSP) 


49 005346 

104401 

037160 

TYPE 

.COMMA 

50 005352 

104401 

037253 

TYPE 

.SERIAL 

#4.R0 

! 51 005356 

012700 

000004 

MOV 

! 52 005362 

013701 

036670 

MOV 

RM.REG+30.R1 

I 53 005366 

005002 


7$: CLR 

R 2 

54 005370 

006101 


ROL 

R1 


SEC 


W ■* fc. 


ANY DRIVES SELECTED ? 

BR IF YES 

ANY MONITOR PRESENT ? 

BR IF NO 

RETURN CONTROL TO MONITOR 
TYPE 'NO DRIVES TO TEST* 

NO— GET DRIVE ENTRY t RESTART AT BEGINNING 

START WITH DRIVE 0 AGAIN 

IS THIS DRIVE SELECTED? 

YES— GO CHECK IF DRIVE IS READY FOR TESTING 
MOVE TO NEXT DRIVE NUMBER 
DONE TESTING ALL DRIVES ? 

BR IF YES 

NO— CHECK DRIVE SELECT 

PICKUP THE DRIVE NUMBER 
IS DESIRED DRIVE ON-LINE? 

YES. BRANCH 

DESELECT DRIVE FROM TEST 
ADJUST 'EOP' COUNT 
RETURN 

GO CLEAR MASSBUS CONTROLLER 

ENSURE THE PRIORITY = 0 

SET THE DRIVE NUMBER INTO THE DPB’S 


LOAD COMMAND INTO DPB.B AND DPB.C 
IF ERROR GO TO END OF PROGRAM 
ASSUME 16 BIT FORMAT 
16 BIT FORMAT REQUESTED ? 

BR IF YES 

CLEAR THE 'FMT16' BIT 

;SET THE FORMAT BIT PER DPB.A+1 
GO EXECUTE THE COMMAND 
RECAL -COMMAND 
GO EXECUTE THE COMMAND 
CR-LF. 

TYPE ’DRIVE' 

; SAVfi R2 FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
.-TYPE 2 DIGIT (S) 

; SUPPRESS LEADING 1 EROS 
tYPE ’ 

TYPE 'KBA SNA ' 

FOUR DIGITS TO TY rj E 
SERIAL NUMBER 
ZERO 

PUT THE NEXT DIGIT 
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B 


5 


bEQ 0053 


55 005372 

006102 



ROl 

R2 

; INTO R2 

56 005374 

006101 



ROL 

R1 


57 005376 

006102 



ROL 

R2 


58 005400 

006101 



ROL 

R1 


59 005402 

006102 



ROL 

R2 


60 005404 

006101 



ROL 

R1 


61 005406 

006102 



ROL 

R2 


62 005410 

062702 

000060 


ADO 

#'0,R2 

.-MAKE IT ASCII 

63 005414 

010227 



NOV 

R2.(PC>* 

.-SAVE IT 

64 005416 

000000 


8$: 

.WORD 

0 


65 005420 

104401 

005416 


TYPE 

.8$ 

.-TYPE 

66 005424 

005300 



DEC 

RO 

;ALL DIGITS TYPED? 

67 005426 

003357 



BGT 

7$ 

;N0 — BRANCH 

68 005430 

104401 

001231 


TYPE 

.SCRLF 

; CR-LF 

69 005434 

70 

71 

113737 

001464 001131 


NOVB 

ERR.CT.SERMAX 

.•SETUP MAX ERROR COUNT 



•DSABL 

LSB 





SEO 0054 
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;/////////////////////////////////////////////////////////////// 
•IN THE DESCRIPTIONS UF THE BELOW TESTS THE VARIABLES USED 
•AND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE: 


•MNEMONIC 
* 

*R 1 ITERATIONS (REPEATS) 

•FC 0 FIRST CYLINDER ADDRESS 

•LC 560. LAST CYLINDER ADDRESS 

•I C 1 INCREMENT VALUE 

•NC OF NCI FC+IC NEW OR MODIFIED CYLINDER 

* ADDRRESS 

•NC2 LC-IC NEW OR MODIFIED CYLINDER 

* ADDRESS 

•FT 0 FIRST TRACK ADDRESS 

•LT 13. LAST TRACK ADDRESS 

•IT 1 INCREMENT VALUE 

•NT FT+IT NEW OR MODIFIED TRACK ADDRESS 

•FS 0 FIRST SECTOR ADDRESS 

•LS 30. LAST SECTOR ADDRESS 

;/////////////////////////////////////////////////////////////// 

.S8TTL SEEK TESTS 

;;/////////////////////////////////////////////////////////////// 
;»THE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE 
[•IMPLIED SEEKS WILL BE PERFORMED BY 'HEAD HEADER AND 
[•DATA" COMMANDS TO TRACK "FT" SECTOR ’TS" OF THE DESIRED CYLINDER. 
[•THE WORD COUNT WILL BE SET SUCH THAT ONLY TF5E CYLINDER AND 
;* TRACK/SEC TOR WORDS OF THE HEADER ARE READ. 
;;/////////////////////////////////////////////////////////////// 


VALUE VARIABLE 


005442 

005442 

005444 

005452 

005454 

005460 

005466 

005472 

005500 

005506 

005514 


000240 

033737 

001002 

000137 

012737 

004737 

012737 

013737 

112737 

012737 


0057C4 

000000 

023734 

005612 

002322 

000031 

000000 


•TEST 0 RECAL/RANDOM SEEK TEST 

•THIS TEST WILL CAUSE THE DRIVE TC EXECUTE A RECALIBRATE COMMAND 
•AND THEN SEEK TO A RANDOM CYLINDER BETWEEN "FC T * AND ’U". AT 
•THE COMPLETION OF BOTH COMMANDS, STATUS INDICATORS ARE CHECKED 
•TO ENSURE T HAT NO ERRORS OCCURRED. 


TSTO: 


001560 001332 


001116 

001124 

001220 

001131 

001240 


MOV 

JSR 

MOV 

MOV 

MOVB 

MOV 


8ITS*<0*2>,TSTNMS ;D0 THIS TEST? 

.♦6 ;BR IF YES 

TST1 ; NO— JUMP TO TEST! 


#0,STSTNM 
PC, LODPRM 
#TESTO,$LPERR 
RPT.STIMES 
#25 . , SERMAX 
#0,$TESTN 


SET TEST #0 AND CLEAR (SERFLG) 
LOAD THE PARMSTERS FOR THE TEST 
SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 
MAX ERRORS ALLOWED FOR TEST 
;SET TEST NUMBER IN APT MAIL BOX 
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SEO 0055 


005522 032777 010000 173424 
005530 001406 
005532 104401 037265 

005536 013746 001240 
005542 104403 
005544 002 

005545 000 


BIT 

BEQ 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 


#SU12.8SWR 
.♦16 
.MSGTST 
STESTN, -(SP) 


INHIBIT TYPING TEST NUMBER ? 
BR IF YES 
TYPE ’TEST’ 

.-SAVE STESTN FOR TYPE OUT 
;G0 TYPE— OCTAL ASCII 
.-TYPE 2 DIGIT(S) 

.SUPPRESS LEADING ZEROS 


46 005546 

1 (2737 

000107 

036510 


M0V3 

♦RECAL,DPB.A*2 

RECAL-COMMAND 

47 005554 

113737 

002340 

036540 


MOVB 

FS, DPB.6^10 

FS 

48 005562 

113737 

002332 

036541 


MOVB 

FT.DPB.B+11 

FT 

49 005570 

013737 

002326 

036542 


MOV 

LC.DPB.B02 

LC 

70 005576 

012737 

005702 

001350 


MOV 

#EXITO, BYPASS 

GO TO EXITO ON ERROR 

005604 

012737 

005612 

001122 


MOV 

#TESTO.SLPADR 

SETUP LOOP ADDRESS 

005612 

005612 

01 2706 

001100 


TESTO: 

MOV 

ASTACK.SP 

SET UP STACK POINTER 

005616 

004037 

024076 



JSR 

RO.CALL.A 

GO EXECUTE THE COMMAND 

005622 

013737 

002324 

036542 


MOV 

FC.DP8.B02 

INITIAL CYLINDER ADDRESS 

005630 

023737 

002324 

002326 


CMP 

FC.LC 

CYLINDER LIMITS THE SAME ? 

005634 

001417 




BEO 

IS 

BR IF THEY ARE 

005640 

004737 

022502 



JSR 

PC.SRAND 

CYCLE THE RANDOM NUMBER GENERATOR 

005644 

013746 

022600 



MOV 

SHINUH.-(SP) 

USE THE HIGH RANDOM NUMBER 

005650 

005046 




CLR 

-<SP) 

UPPER DIVIDEND 

005652 

013746 

002326 



MOV 

LC.-(SP) 

FORM THE DIVISOR 

005656 

005216 




INC 

(SP) 

INCREMENT 

005660 

165716 

002324 



SUB 

FC.(SP) 

SUBTRACT THE LOWER LIMIT 

005664 

004737 

022604 



JSR 

PC.SDIV 

DIVIDE 

005670 

062o3 7 

036542 



ADD 

(SP)4, DPB.B+12 

ADD THE REMAINDER TO THE INITIAL CYLINDER 

005674 

005726 




TST 

(SP)* 

DISCARD THE QUOTENT 

005676 

005676 

004037 

024244 


IS: 

JSR 

RO.CALL.B 

GO EXECUTE THE COMMAND 

005702 

000004 



EXITO: 

SCOPE 

CALL SCOPE ROUTINE 


005704 

005704 000240 

005706 033737 001562 0G1332 
005714 001002 
005716 000137 006112 


005722 

005730 

005734 

005742 

005750 

005756 

005764 

005772 

005774 


012737 

004737 

012737 

013737 

112737 

012737 

032777 

001406 

104401 


;*TEST 1 SEEK/SEEK TEST 

.♦THIS TEST WILI CAUSE THE DRIVE TO EXECUTE A FORWARD SFEK 
;*CrCLE TO *U , , ir*. ’IS" FOLLOWED BY A REVERSE SEEK CYCLE TO 
;*'?C", "FT". ’TS". AT THE COMPLETION OF EACH SEEK, THE PROPER 
; INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 
;;*************************************************************** 
TST1 : 

NOP 

BIT BITS+<1*2>,TSTNMS ;D0 THIS TEST? 

BNE .+6 ;BR IF YES 

JMP TST2 ; NO— JUMP TO TEST2 


000001 

023734 

006074 

002322 

000031 

000001 


001116 

001124 

001220 

001131 

001240 


010000 173162 
037265 


MOV #1,$TSTNM 

JSR PC.LODPRM 

MOV fTtSTI .SLPERR 

MOV RPT, STINES 

M0V8 #25.,SERNAX 

MOV #1, STESTN 

BIT #SW12,BSWR 

BEO .416 

TYPE ,MSGTST 


SET TEST #1 AND CLEAR (SERFLG) 
LOAD THE PARMETERS FOR THE TEST 
SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 
MAX ERRORS ALLOWED FOR TEST 
;SET TEST NUMBER IN APT MAIL BOX 

INHIBIT 1YPING TEST NUMBER ? 

BR IF YES 
TYPE ’TEST* 


E 


5 


CZRNGAO 

71 


81 
8 2 

83 

84 

85 

86 
87 
92 


93 

94 

95 

96 

97 
108 
109 


110 


111 

112 

113 

117 
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SEEK/SEEK TEST 


006000 

013746 

001240 



MOV 

STESTN, -(SP) 

; ; SAVE STESTN FOR TYPEOUT 

006004 

104403 




TYPCS 


; ; GO TYPE— OCTAL ASCII 

006006 

002 




.BYTE 

2 

;;TYPE 2 DIGIT(S) 

006007 

000 




.BYTE 

0 

; .-SUPPRESS LEADING ZEROS 

006010 

0C5037 

001466 



CLR 

BASFLG 

.-CLEAR BAD SECTOR ENCOUNTER FOR THE DRIVE 

006014 

113737 

002340 

036540 


wove 

FS.DPB.B+10 

;FS 

006022 

113737 

002542 

036562 


MOVB 

LS,DP8.C*10 

;is 

006030 

113737 

002332 

036541 


movb 

FT.DPB.B+11 

;FT 

006036 

113737 

002334 

036563 


MOVB 

LT.DPB.C+11 

;LT 

006044 

013737 

002324 

036542 


MOV 

FC.DPB.B+12 

;FC 

006052 

013737 

002326 

036564 


MOV 

LC.DP8.C+12 

;LC 

006060 

012737 

006110 

001350 


MOV 

#EXIT1 .BYPASS 

;G0 TO EXIT1 ON ERROR 

006066 

012737 

006074 

001122 


MOV 

#TEST1 .SLPADR 

.•SETUP LOOP ADDRESS 

006074 




TEST1 : 




006074 

012706 

001100 



MOV 

# STACK. SP 

;SET THE STACK POINTER 

006100 

004037 

024466 



JSR 

RO.CALL.C 

;G0 EXECUTE THE COMMAND 

006104 

004037 

024244 



JSR 

RO.CALL.B 

;G0 EXECUTE THE COMMAND 

006110 

000004 



EXIT1 : 

SCOPE 


.’CALL SCOPE ROUTINE 


006112 

006112 

006114 

006122 

006124 

006130 

006136 

006142 

006150 

006156 

006164 

006172 

006200 

006202 

006206 

006212 

006214 

006215 

006216 

006224 

006232 

006240 


• *************************************************** ****** 
•TEST 2 INCREMENT/SEEK TEST 

•THIS TEST WILL COMNANO FORWARD SEEK CYCLES TO ADVANCE THE 
•CYLINDER ADDRESS FROM "FC" TO *1C" BY THE INCPENENT "IC". 
•WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 
*"LC" REVERSE SEEK CYCLES ARE INITIATED; STARTING 
•AT THE LAST LE6AL '*»C r * AND DECREMENTING BY "IC” 

•UNTIL **C" IS LESS THAN "FC". AT THE COMPLETION OF EACH 
•SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
•ENSURE PROPER OPERATION. 


• • *************************************************************** 
TST2: 


000240 



NOP 



033737 

001564 

001332 

BIT 

BITS*<2*2>,TSTNNS ;D0 THIS TEST? 

001002 



BNE 

.♦6 

BR IF YES 

000137 

006354 


JMP 

TST3 

NO— JUMP TO TEST3 

012737 

000002 

001116 

MOV 

#2.$TSTNM 

SET TEST #2 AND CLEAR (SERFLG) 

004737 

023734 


JSR 

PC.LODPRN 

LOAD THE PARMETERS FOR THE TEST 

012737 

006246 

001124 

MOV 

#T§ST2,$LPERR 

SETUP THE LOOP ON ERROR ADDRESS 

013737 

002322 

001220 

NOV 

RPT, STINES 

GET THE ITERATION COUNT 

112737 

000031 

001131 

MOVB 

#2 5..SERNAX 

MAX ERRORS ALLOWED FOR TEST 

012737 

000002 

001240 

MOV 

#2, STESTN 

;SET TEST NUMBER IN APT MAIL BOX 

03 2777 

010000 

172754 

BIT 

#SW12.8SWR 

INHIBIT TYPING TEST NUMBER ? 

001406 



BEO 

.♦16 

BR IF YES 

104401 

037265 


TYPE 

.MSGTST 

TYPE 'TEST* 

013746 

001240 


MOV 

STESTN. -<SP) 

.SAVE STESTN FOR TYPEOUT 

104403 



TYPOS 


;G0 TYPE— OCTAL ASCII 

00 2 



.BYTE 

2 

.TYPE 2 DIGIT(S) 

000 



.BYTE 

0 

.’SUPPRESS LEADING ZEROS 

012737 

006224 

001122 

MOV 

#1S. SLPADR 

SETUP LOOP ADDRESS 

113737 

002340 

036540 IS: 

MOVB 

FS.DPB.B+10 

FS 

113737 

002332 

036541 

MOVB 

FT.DPB.B^II 

FT 

012737 

006352 

001350 

MOV 

#EXIT2. BYPASS 

GO TO EXIT2 ON ERROR 
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INCREMENT/SEEK 

TEST 







006246 




TEST2: 




118 

006246 

013737 

002324 

036542 


NOV 

FC.DPB.B*12 

;FC 

119 

006254 

012737 

006254 

001124 


NOV 

♦. ,$LPERR 
♦STACK, SP 

.’SETUP THE ERROR LOOP ADDRESS 


006262 

012706 

001100 



NOV 

.’LOAD THE STACK POINTER 

120 

006266 




INCSK: 




121 

006266 

004037 

024244 



JSR 

RO.CALL.B 

;G0 EXECUTE THE COMMAND 

122 

006272 

063737 

002330 

036542 


ADD 

IC.DPB.3*12 

.’MOVE TO NEXT CYLINDER 

123 

006300 

023737 

002326 

036542 


CNP 

LC.DP8.B*12 

.-OUT OF CYLINDERS? 

124 

006306 

002367 




BGE 

INCSK 

;N0— BRANCH 

125 

006310 

013737 

002326 

036542 


NOV 

LC.DP8.B+12 


126 

006316 

012737 

006316 

001124 


NOV 

♦..5LPERR 

.’SETUP THE ERROR LOOP ADDRESS 


006324 

012706 

001100 



NOV 

♦STACK, SP 

.’LOAD THE STACK POINTER 

127 

006330 




DECSK: 



128 

006330 

004037 

024244 



JSR 

RO.CALL.B 

;G0 EXECUTE THE COMMAND 

129 

006334 

163737 

002330 

036542 


SUB 

IC.DPB.B+12 


130 

006342 

023737 

002324 

036542 


CNP 

FC.DPB.B*12 


131 

006350 

003767 




BLE 

DECSK 


132 

133 

140 

1/1 

006352 

000004 



EXIT2: 

SCOPE 


.'CALL SCOPE ROUTINE 

1 H 1 





•West 3 

STEPPING SEEK 

TEST 






;*THIS 

TEST WILL COMMAND SEEK 

CYCLES TO CYLINDER 0. 1, 2. 4, 






;*8, 16 

. 32. 64 

. 128. 256 AND 

512. AT THE COMPLETION OF EACH 






.•♦SEEK 

COMMAND 

THE PROPER INDICATORS ARE EXAMINED TO ENSURE 






.-♦PROPER OPERATION. 



006354 

006354 

000240 



TST3: 

NOP 




006356 

033737 

001566 

001332 


BIT 

BITS+<3*2>.TSTNNS ;D0 THIS TEST? 


006364 

001002 




BNE 

.♦6 

m IF YES 


006366 

000137 

006574 



JMP 

TST4 

;N0— JUMP TO TEST4 


006372 

012737 

000003 

001116 


MOV 

♦3.STSTNM 

;SET TEST »3 AND CLEAR (SERFLG) 


006400 

004737 

023734 



JSR 

PC.LODPRN 

;LOAD THE PARMETERS FOR THE TEST 


006404 

012737 

006510 

001124 


MOV 

♦TEST3.SLPERR 
RPT, STINES 

.’SETUP THE LOOP ON ERROR ADDRESS 


006412 

013737 

002322 

001220 


MOV 

;6ET THE ITERATION COUNT 


006420 

112737 

000031 

001131 


NOVB 

♦25 . , SERHAX 
♦3.STESTN 

;MAX ERRORS ALLOWED FOR TEST 

142 

006426 

012737 

000003 

001240 


MOV 

;;SET TEST NUMBER IN APT MAIL BOX 

006434 

032777 

010000 

172512 


BIT 

♦SW12.8SWR 

.’INHIBIT TYPING TEST NUMBER ? 


006442 

001406 




BEO 

.♦16 

;BR IF YES 


006444 

104401 

037265 



TYPE 

.NS6TST 

STESTN.-(SP) 

.-TYPE ’TEST' 


006450 

013746 

001240 



MOV 

.’.•SAVE STESTN FOR TYPEOUT 


006454 

104403 




TYPOS 


;;60 TYPE— OCTAL ASCII 


006456 

002 




.BYTE 

2 

.’.’TYPE 2 DIGIT(S) 


006457 

000 




.BYTE 

0 

.-.’SUPPRESS LEADING ZEROS 

143 


012737 

006466 

001122 


NOV 

♦1S.SLPADR 

FS.DPB.B+10 

.SETUP TEST LOOP ADDRESS 

144 

006466 

113737 

002340 

036540 

IS: 

NOVB 

;FS 

145 

006474 

113737 

002332 

036541 


NOVB 

FT.DPB.B+11 

.’FT 

149 

0065 02 
006510 

012737 

006572 

001350 

TEST3: 

MOV 

♦EXIT3. BYPASS 

;G0 TO BYPASS ON ERROR 

150 

006510 

013737 

002324 

036542 


MOV 

FC.DPB.B+12 

;FC 

151 

006516 

012737 

006516 

001124 


NOV 

♦..SLPERR 

.'SETUP THE ERROR LOOP ADDRESS 


006524 

006530 

012706 

001100 



NOV 

♦STACK, SP 

.’LOAD THE STACK POINTER 

152 

004037 

024244 



JSR 

RO.CALL.B 

;G0 EXECUTE THE COMMAND 


SEO 0057 


G 


5 


i^RNGAO 


153 

154 

155 

156 

157 

158 

159 

160 
161 

169 

170 
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STEPPING SEEK 

TEST 



006534 

013701 

002330 

MOV 

IC.R1 

006540 

012737 

006540 001124 

MOV 

#. .SLPERR 

006546 

012706 

001100 

MOV 

fSTACK.SP 

006552 

010137 

036542 IS: 

MOV 

R1,DP8.B*12 

006556 

004037 

024244 

JSR 

RO.CALL.B 

006562 

006301 


ASL 

R1 

006564 

020137 

002326 

CMP 

R1.LC 

006570 

003770 


BLE 

IS 

006572 

000004 

EXIT3 

: SCOPE 



CYLINDER 1 

SETUP THE ERROR LOOP ADDRESS 
LOAD THE STACK POINTER 
DESIRED CYLINDER 
GO EXECUTE THE COWAND 
HOVE TO NEXT CYLINDER 
DONE? 

NO— LOOP 

CALL SCOPE ROUTINE 


♦TEST 4 OSCILLATING SEEK TEST 

♦ THIS TEST WILL COWAND SEEK CYCLES FROM YC" TO ’tiC'* AND BACK 
♦TO 'TC". ’NC" STARTS AT r TC" AND INCREMENTS BY "IC’* UP TO CYLINDER 
♦"LC", THEN IS DECREMENTED BY ,, IC M BACK TO CYLINDER •TC". AT THE 
♦COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 
♦EXAMINED TO ENSURE PROPER OPERATION. 



006574 

006574 

000240 



006576 

033737 

001570 


006604 

001002 



006606 

000137 

007206 


006612 

012737 

000004 


006620 

004737 

023734 


006624 

012737 

006744 


006632 

013737 

002322 


006640 

112737 

000031 


006646 

012737 

000004 

171 

006654 

032777 

010000 


006662 

001406 



006664 

104401 

037265 


006670 

013746 

001240 


006674 

104403 



006676 

002 



006677 

000 


172 

006700 

012737 

006706 

173 

006706 

113737 

002340 

174 

006714 

113737 

002332 

182 

006722 

006730 

012737 

005002 

007204 


006732 

032737 

010000 


006740 

001401 



006742 

006744 

005102 

002324 

183 

006744 

013701 

184 

006750 

005037 

001436 

185 

006754 

012737 

006754 


006762 

012706 

001100 

1 86 

006766 

010137 

036542 

18 7 

006772 

004037 

024244 

188 

006776 

005702 


189 

007000 

001403 




TST4: 

NOP 

001332 


BIT 

BNE 

JMP 

001116 


MOV 

JSR 

001124 


MOV 

001220 


MOV 

001131 


movb 

001240 


MOV 

172272 


BIT 

8E0 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

001122 


MOV 

036540 

IS: 

MOVB 

036541 


MOVB 

001350 


MOV 

CLR 

001314 

TEST4: 

BIT 

BEQ 

COM 

MOV 

CLR 

001124 


MOV 

MOV 


IS: 

MOV 

JSR 

TST 

BEO 


8ITS+<4*2>,TSTNMS 
.+6 
TST5 

#4,$TSTNM 
PC.LODPRM 

#t£st4,$lperr 

RPT.STIMES 
#25. .SERMAX 
#4.STESTN 

#SW12.8SWR 
.♦16 
.MSGTST 
STESTN.-(SP) 

2 
0 

#1J.SLPADR 

FS. DPB. B+10 

FT. DPB.BM1 
#EXIT4, BYPASS 
R2 

#SW12.C.SWR 
TEST4 
R2 


;D0 THIS TEST? 

BR IF YES 
NO— JUMP TO TEST5 

SET TEST #4 AND CLEAR (SERFLG) 
LOAD THE PARMETERS FOR THE TEST 
SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 
MAX ERRORS ALLOWED FOR TEST 
;SET TEST NUMBER IN APT MAIL BOX 

INHIBIT TYPING TEST NUMBER ? 

BR IF YES 
TYPE ’TEST’ 

SAVE STESTN FOR TYPEOUT 
GO TYPE— OCTAL ASCII 
TYPE 2 DIGIT (S) 

SUPPRESS LEADING ZEROS 

SETUP LOOP ADDRESS 

FS 

FT 

GO TO EXIT4 ON ERROR 
CLEAR STALL SWITCH (NO STALL) 
STALL REOUIRED? 

NO— BRANCH 
YES— SET SWITCH 


FC.R1 ;SET HC TO FC 

STALLO ; START At ZERO IF STALLS REOUIRED 
#.,SLPFR& .-SETUP THE ERROR LOOP ADDRESS 

fStACK.SP ;LOAD THE STACK POINTER 

R1.DP8.B*12 ;NC 

RO.CALL.B ;G0 EXECUTE THE COMMAND 

R2 .STALL? 

2$ ; NO— BRANCH 


SEQ 0058 
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SEQ 0059 


190 007002 

191 007006 

192 007010 

193 007016 

194 007022 

195 007024 
1% 007026 

197 007032 

198 007034 

199 007040 

200 007046 

201 007050 

202 007054 

203 007060 

204 007064 

205 007066 

206 007072 
007100 

207 007104 

208 007110 

209 007114 

210 007116 

211 007120 

212 007124 

213 007126 

214 007134 

215 007140 

216 007142 

217 007144 

218 007150 

219 007152 

220 007156 

221 007164 

222 007166 

223 007172 

224 007176 

225 007202 

22 6 007204 

227 

238 

239 


004037 
001436 
013737 
00403 7 
005702 
001413 
004037 
001436 
005237 
023737 
003347 
005037 
063701 
020137 
003740 
013701 
012737 
012706 
010137 
004037 
005702 
001403 
004037 
001436 
013737 
004037 
005702 
001413 
004037 
001436 
005237 
023737 
003347 
005037 
163701 
020137 
002340 
000004 


025220 

002324 

024244 


025220 

001436 

001462 

001436 

002330 

002326 

002326 

007072 

001100 

036542 

024244 


025220 

002326 

024244 


025220 

001436 

001462 

001436 

002330 

002324 


001436 


001124 


JSR RO, STALL 

.WORD STALLO 

036542 2*: MOV FC.DP8.B*12 

JSR RO.CALL.B 

TST R2 

BEQ 3$ 

JSR RO. STALL 

.WORD STALLO 

INC STALLO .-UPDATE 

CMP MXSTAL. STALLO 

B6T 1$ 

CLR STALLO 

3S: ADD IC.R1 

CMP R1.LC 

BLE IS 

MOV LC.R1 

MOV #..$LPERR 

MOV ASTACK.SP 

4$: MOV R1.DPB.B+12 

JSR RO.CALL.B 

TST R 2 

BEQ 5$ 

JSR RO. STALL 

.WORD STALLO 

036542 5$: MOV LC.DP6.B+12 

JSR RO.CALL.B 

TST R2 

BEQ 6$ 

JSR RO. STALL 

.WORD STALLO 

INC STALLO -UPDATE 

CMP MXSTAL. STALLO 

BGT 4$ 

CLR STALLO 

6S: SUB IC.R1 

CMP R1.FC 

BGE 4S 

EXIT4: SCOPE 


001436 


YES-GO TO STALL ROUTINE 
TIME POINTER 
FC 

GO EXECUTE THE COMMAND 
STALL? 

NO --BRANCH 

YES— GO TO STALL ROUTINE 
.TIME POINTER 
tHE TIME 
TIME TO BIG? 

NO— BRANCH 
; YES— START OVER AT ZERO 

MOVE TO NEXT CYLINDER 
LAST CYLINDER COMPLETED? 

NO— BRANCH 
SET NC TO LC 

SETUP THE ERROR LOOP ADDRESS 
LOAD THE STACK POINTER 
NC 

GO EXECUTE THE COMMAND 
STALL? 

NO— BRANCH 

YES— GO TO STALL ROUTINE 
TIME POINTER 
LC 

GO EXECUTE THE COMMAND 
STALL? 

NO— BRANCH 

YES— GO TO STALL ROUTINE 
TIME POINTER 
STALL TIME 
TIME TOO BI6? 

MV— ARAJUfM 

;YES— SEt STALL TIME BACK TO ZERO 
NEXT CYLINDER 
DONE? 

NO— BRANCH 
CALL SCOPE ROUTINE 


007206 

007206 

000240 

. . ---- 
TST5: 

HOP 

007210 

033737 

001572 001332 

BIT 

007216 

001002 


8NE 

007220 

000137 

007432 

JMP 


•TEST 5 CONVERGING/DIVERGING SEEK TEST 

•THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 

•SEEKS FROM ‘NCI" AND •tiCa* RESPECTIVELY. ‘NCI** WILL BE INCREMENTED 

•BY ,, IC , ‘ AND ’NCa** WILL BE DECREMENTED BY "IC*' UNTIL •’NCI" IS 

•GREATER THAN THE INITIAL VALUE OF 'NC2 r ' AND *NC2 M IS 

•LESS THAN THE INITIAL VALUE OF ‘NCV. AT THE COMPLETION OF 

•EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 

•ENSURE PROPER OPERATION. r NC1*' AND 'NC2“ DEFAULT TO 

*‘TC*' AND •IC" RESPECTIVELY. 


BITS*<5*2>,TSTNMS :D0 THIS TEST? 

.♦6 ;8R IF Y§S 

TST6 .-NO— JUMP TO TEST6 



I 


5 


CZRNGAO 

T5 


240 


241 

242 

243 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 
260 
261 
262 

263 

264 

273 

274 
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CONVERGING/DIVERGING SEEK TEST 



007224 

007232 

012737 

004737 

000005 

023734 

001116 


MOV 

JSR 

007236 

012737 

007342 

001124 


MOV 

007244 

013737 

002322 

001220 


MOV 

007252 

112737 

000031 

001131 


HOVB 

007260 

012737 

000005 

001240 


MOV 

007266 

032777 

010000 

171660 


BIT 

007274 

001406 




BEQ 

007276 

104401 

037265 



TYPE 

007302 

013746 

001240 



MOV 

007306 

104403 




TYPOS 

007310 

002 




.BYTE 

007311 

000 




.BYTE 

007312 

012737 

007320 

001122 


MOV 

007320 

113737 

002340 

036540 

IS: 

HOVB 

007326 

113737 

002332 

036541 


HOVB 

007334 

007342 

012737 

007430 

001350 

TESTS: 

MOV 

007342 

013701 

002324 



MOV 

007346 

013702 

002326 



MOV 

007352 

012737 

007352 

001124 


NOV 

007360 

012706 

001100 



MOV 

007364 

010137 

036542 


IS: 

MOV 

007370 

004037 

024244 



JSR 

007374 

010237 

036542 



NOV 

007400 

004037 

024244 



JSR 

007404 

063701 

002330 



ADD 

007410 

163702 

002330 



SUB 

007414 

020137 

002326 



CMP 

007420 

003003 




BGT 

007422 

020237 

002324 



CMP 

007426 

002356 



EXIT5: 

BGE 

0*7430 

000004 



SCOPE 


#5.STSTNM 

;SET TEST #5 AND CLEAR (JERFLG) 

PC.LODPRM 

.•LOAD THE PARMETERS FOR THE TEST 

#TEST5,SLPERR 

.-SETUP THE LOOP ON ERROR ADDRESS 

RPT. STINES 

;GET THE ITERATION COUNT 

#25.. SERMAX 

.-MAX ERRORS ALLOWED FOR TEST 

#5.$TESTN 

; ;SET TEST NUMBER IN APT MAIL BOX 

#SU12.aSWR 

.•INHIBIT TYPING TEST NUMBER ? 

.♦16 

;BR IF YES 

.MSGTST 

.•TYPE ‘TEST’ 

ilESTN.-(SP) 

.-.-SAVE STESTN FOR TYPEOUT 
;;G0 TYPE— OCTAL ASCII 

2 

.-.-TYPE 2 DIGIT(S) 

0 

.-.’SUPPRESS LEADING ZEROS 

flS.SLPADR 

.•SETUP LOOP ADDRESS 

FS.DPB.BHO 

;FS 

FT.DPB.BH1 

;FT 

#EXIT5. BYPASS 

;G0 TO EXIT5 ON ERROR 

FC.R1 

.•START NCI AT FC 

LC.R2 

.•START NC2 AT LC 

#. .SLPERR 

.‘SETUP THE ERROR LOOP ADDRESS 

#STACK.SP 

;LQAD THE STACK POINTER 

R1.DP8.B*12 

;NC1 

RO.CALL.B 

;60 EXECUTE THE COMMAND 

R2.DP8.BH2 

;NC2 

RO.CALL.B 

;60 EXECUTE THE COMMAND 

IC.R1 

.•NEXT NCI 

IC.R2 

;NEXT NC2 

R1.LC 

.‘DONE? 

EXIT5 

R2.FC ;? 

; YES— BRANCH 

IS 

; NO— BRANCH 
.•CALL SCOPE ROUTINE 


.-•TEST 6 SERVO ADDRESSING LOGIC NOISE GENERATOR 

;*IN THIS TEST A SEEK IS DONE TO CYL ‘W THEN A SEEK TO,. 

;*NC*4 THEN NCH THEN NC*3 THEN NC*2 THEN NC*5. NOW NC” IS UPDATED 
;*BY "IC" AND THE ABOVE SEQUENCE IS REPEATED UNITL 'IC" IS 
•♦EXCEEDED BY ANY Of THE ABOVE VALUES. THE INITIAL VALUE OF 
;*IS ‘Tr*. AT THE COMPLETION OF EACH SEEK COMMAND THE 
.-•PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


•NC" 


007432 



tST6: 


007432 

000240 



NOP 

007434 

033737 

001574 

001332 

BIT 

007442 

001002 



BNE 

007444 

000137 

007722 


JMP 

007450 

012737 

000006 

001116 

MOV 

007456 

004737 

023734 


JSR 

007462 

012737 

007566 

001124 

MOV 

007470 

013737 

002322 

001220 

MOV 

007476 

112737 

000031 

001131 

HOVB 


BITS+<6*2>.TSTNMS ;D0 THIS TEST? 

.♦6 ;BR IF YES 

TST7 ;N0— JUMP TO TEST7 


I6.STSTNM 
PC.LODPRM 
#TEST6.$LPERR 
RPT, STINES 
#25. .SERMAX 


;SET TEST #6 AND CLEAR (SERFLG) 
.-LOAD THE PARNETERS FOR THE TEST 
.•SETUP THE LOOP ON ERROR ADDRESS 
;GET THE ITERATION COUNT 
.-MAX ERRORS ALLOWED FOR TEST 


:eo 0060 
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SEQ 0061 


007504 0.2737 


275 

007512 

0C 7 520 

007522 

007526 

007532 

007534 

007535 

276 007536 

2 7 7 007544 

278 007552 

282 007560 
007566 

283 007566 

284 007572 

285 007576 

286 007602 
007610 

287 007614 

290 007616 

291 007620 

292 007624 

293 007630 

294 007636 

295 007642 

296 007650 

297 007654 

298 007662 

299 007666 

300 007674 

301 007700 

302 007706 

303 007712 

304 007716 

305 007720 

306 

315 

316 


032777 

001406 

104401 

013746 

104403 

002 

000 

012737 

113737 

113737 

012737 

013701 

013702 

162702 

012737 

012706 

020102 

003040 

010137 

004037 

062737 

004037 

162737 

004037 

062737 

004037 

162737 

004037 

062737 

004037 

063701 

000736 

000004 


000006 

010000 

037265 

001240 


007544 

002340 

002332 

007720 

002324 

002326 

000005 

007602 

001100 


036542 

024244 

000004 

024244 

000003 

024244 

000002 

024244 

000001 

024244 

000003 

024244 

002330 


001240 

171434 


001122 

C36540 

036541 

001350 


001124 


036542 

036542 

036542 

036542 

036542 


IS: 


TEST6: 

MOV 

MOV 

SUB 

MOV 

MOV 

IS: CMP 

BGT 
MOV 
JSR 
ADD 
JSR 
SUB 
JSR 
ADD 
JSR 
SUB 
JSR 
ADD 
JSR 
ADD 
BR 

EXJT6: SCOPE 


MOV 

#6.fTESTH 

;;SE1 TEST NUMBER IN APT MAIL BOX 

81 T 

PSW12.BSWR 

.‘INHIBIT TYPING TEST NUMBER ? 

BEQ 

.♦16 

;BR IF YES 

TYPE 

.MSGTST 

.-TYPE ’TEST* 

MOV 

STESTN. -(SP) 

.-.SAVE STESTN FOR TVPEOUT 

TYPOS 


; ; GO TYPE— OCTAL ASCII 

.BYTE 

2 

.-.-TYPE 2 DIGIT(S) 

.BYTE 

0 

;;SUP°RESS LEADING ZEROS 

MOV 

P1S.SLPADR 

.-SETUP LOOP ADDRESS 

MOVB 

FS.DPB.B+10 

;FS 

MOVB 

FT.DPB.B+1 1 

;FT 

MOV 

PEXIT6, BYPASS 

;G0 TO EXIT6 ON ERROR 


FC.R1 

LC.R2 

05, R2 

0 . .SLPERR 

PSTACK.SP 

R1.R2 

EXJT6 

R1.DP8.B+12 

SO, CALL. B 

#4,DPB.B*12 

RO.CALL.B 

#3,DPB.B*12 

RO.CALL.B 

#2.DP8.B*12 

RO.CALL.B 

#1.DPB.B*12 

RO.CALL.B 

#3.DP6.B+12 

RO.CALL.B 

IC.R1 

IS 


.-PICKUP "FC'* 

.-FORM LAST CYLINDER THAT 
;IS AVAILABLE FOR TESTING 
.-SETUP THE ERROR LOOP ADDRESS 
;LOAD THE STACK POINTER 
.-LAST CYLINDER 
;VES~BRANCH 
;NC 

;G0 EXECUTE THE COMMAND 
;NC+4 

;G0 EXECUTE THE COMMAND 
;NC+1 

;G0 EXECUTE THE COMMAND 
;NC*3 

;G0 EXECUTE THE COMMAND 
;NC*2 

;G0 EXECUTE THE COMMAND 
;NC >5 

;G0 EXECUTE THE COMMAND 


;CALL SCOPE ROUTINE 


•TEST 7 RANDOM SEEK TEST , , 

•THIS TEST PERFORMS RANOOM SEEK OPERATIONS BETWEEN CYLINDERS ’FC 1 
*'LC\ AFTER EACH SEEK. THE POSITION OF THE DRIVE IS VERIFIED BY 
•READING A SECTOR FROM fHE CURRENTLY ADDRESSED CYLINDER AND TRACK. 

•THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 
•OF POSITIONING OCCURS USING EACH HEAD. TRACK ADDRESSES ARE INCREMENTED 
•BETWEEN PARAMTERS 'FT* AND 'LT*. 
•*************»**••*•*•***•*•••***•«•**•••*•••**•*****•*•**••*•* 


007722 



TST7: 


007722 

000240 



NOP 

007724 

033737 

001576 

001332 

BIT 

007732 

001002 



8NE 

007734 

000137 

010320 


JMP 

007740 

012737 

000007 

001116 

MOV 

007746 

004737 

023734 


JSR 

0C7752 

012737 

010056 

001124 

MOV 


BITS*<7*2>.TSTNMS ;D0 THIS TEST? 

.♦6 ;BR IF YES 

TST10 ; NO— JUMP TO TEST10 


#7.$TSTNH 
PC.LODPRM 
*t£sT7. SLPERR 


.-SET TEST 07 AND CLEAR (SERFLG) 
;LOAD THE PARMETERS FOR THE TEST 
.-SETUP THE LOOP ON ERROR ADDRESS 
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K 5 


007760 

013737 

002322 

001220 

MOV 

007766 

112737 

000031 

001131 

MQV6 

007774 

012737 

000007 

001240 

MOV 

010002 

032777 

010000 

171144 

BIT 

010010 

001406 



BEQ 

010012 

104401 

037265 


TYPE 

010016 

013746 

001240 


MOV 

010022 

104403 



TYPOS 

010024 

002 



.BYTE 

010025 

000 



.BYTE 


318 010026 

319 01 0034 

324 010042 
010050 
010056 

325 010062 

326 010066 

327 010074 

328 010102 

329 010104 

330 010110 

331 010114 

332 010116 

333 010122 

334 010124 

335 010130 

336 010134 

337 010140 

338 010142 

339 010150 
010150 
010156 

340 010162 

341 010166 
010174 

342 010200 

343 010206 

344 010212 

345 010214 

346 010216 

347 010220 

348 010224 

349 010226 

350 0IC230 

351 010232 

352 010236 

353 010242 

354 010244 

355 010250 

356 010252 

357 010254 

358 010260 

359 010262 

360 010270 
010270 


113737 

112737 

012737 

012737 

013704 

012706 

013737 

023737 

001422 

004737 

013746 

005046 

013746 

005216 

163716 

004737 

062637 

005726 

013737 

012737 

012706 

004037 

012737 

012706 

113764 

016446 

006316 

006316 

0C0316 

105766 

001401 

105216 

105216 

112637 

013746 

005216 

122637 

103007 

103403 

105037 

000403 

112737 


002332 036541 
000105 036510 
010316 001350 
010056 001122 
031366 
001100 

002324 036542 
00232* 002326 

022502 

022600 

0C2326 

002324 

022604 

036542 

036542 0365 20 


TEST7: 


010150 

001100 

024076 

010166 

001100 

036506 

000020 


000001 


036604 

002426 

036604 


036604 

000001 


001124 


001124 

000010 


004037 024244 


036604 3$: 
4$: 


N0V8 

MOVB 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

JSR 

MOV 

CLR 

MOV 

INC 

SUB 

JSR 

ADD 

TST 

MOV 

NOV 

MOV 

JSR 

MOV 

MOV 

N0V8 

MOV 

ASL 

ASL 

SWAB 

TSTB 

BEQ 

INC8 

1NCB 

Move 

NOV 

JNC 

CMPB 

BHIS 

8L0 

CLR8 

BR 

H0V8 


RPT, STINES 

#25.,SERMAX 

#7,$TESTN 

#SWl2.iSUR 

.♦16 

.MSGTST 

iTESTN.-(SP) 


FT.DP8.B+11 
fSEEK.DPB.A+2 
#EXI T7,BYPASS 
#TEST7,$LPADR 
RMADR.R4 
JSTACK.SP 
FC.DP8.B+12 
FC.LC 
1 $ 

PC.SRAND 

SHINUM.-(SP) 

-(SP) 

LC.-(SP) 

(SP) 

FC, (SP) 

PC.SDIV 
(SP)+, DPB.8+12 
(SP)* 

DPB.B+12.DPB.A+1 

#.,SLPERR 
#STACK,SP 
RO,CALL.A 
#. .SLPERR 
#STACK,SP 
DP8.A.RMCS2(R4) 
RMLA(R4) ,-(SP) 
(SP) 

(SP) 

' SP ) 

1 (SP) 

2$ 

(SP) 

(SP) 

(SP)*.0 TADPB+10 
PRMLMT^16,-(SP) 
(SP) 

<SP)+,DTADP8+10 

4$ 

3$ 

DTADP8+10 

4$ 

fl.DTADPB+10 

RO.CALL.B 


ScQ 00c 2 


GET THE ITERATION COUNT 
MAX ERRORS ALLOWED FOR TEST 
.-SET TEST NUMBER JN APT MAIL BOX 

INHIBIT TYPING TEST NUMBER ? 

BR IF YES 
TYPE ’TEST’ 

:;SAVE STESTN FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
:;TYPE 2 DIGIT (S) 

SUPPRESS LEADING ZEROS 

LOAD STARTING TRACK ADDRESS 
SEEK-COMMAND 

ERROR TERMINATION ADDRESS 
SETUP THE LOOP ON TEST ADDRESS 
UNIBUS ADDRESS OF THE RH/RM 
SETUP THE STACK POINTER 
INITIAL CYLINDER ADDRESS 
CYLINDER LIMITS THE SAME ? 

BR IF THEY ARE 

CYCYLE THE RANDOM NUMBER GENERATOR 
USE THE HIGH RANDOM NUMBER 
UPPER DIVIDEND 
FORM THE DIVISOR 
INCREMENT 

SUBTRACT THE LOWER LIMIT 
DIVIDE 

ADD THE REMAINDER TO THE INITIAL CYLINDER 
.DISCARD THE QUOTENT 
& ;COPY NEW CYLINDER ADDRESS 

SETUP THE ERROR LOOP ADDRESS 
LOAD THE STACK POINTER 
GO EXECUTE THE COMMAND 
SETUP THE ERROR LOOP ADDRESS 
LOAD THE STACK POINTER 
SELECT THE DRIVE 
GET THE LOOK AHEAD REGISTER 
ALIGN THE SECTOR ADDRESS 
ALIGN THE SECTOR ADDRESS 
PUT ADDRESS IN LOWER BYTE 
IN THE 1ST 20X OF SECTOR ? 

BR IF YES 

INCREMENT THE SECTOR ADDRESS 
INCREMENT THE SECTOR ADDRESS 
LOAD THE DPB 

PUT LAST SECTOR ADDRESS ON THE STACK 
INCREMENT IT 

NEW SECTOR ADDRESS TOO LARGE ? 

BR IF NOT 

BR IF ADDRESS IS 2 GREATER 
RESET TO SECTOR ADDRESS 0 
CONTINUE 

RESET ADDRESS TO SECTOR 1 
GO EXECUTE THE COMMAND 


L 



CZRNGAO RM80 FCTNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 13-9 
T7 RANDOM SEEK TEST 


l 5 


105237 

123737 


361 010274 

362 010300 

365 010306 101403 

366 010310 113737 

367 010316 000004 

368 

379 

380 


036541 


1NCB 

DP8.B*1 1 

036541 

002334 

CMP6 

DP8.B*11.LT 


BLOS 

EXIT7 

002332 

036541 

MOVB 

FT.DPB.B+11 

EXIT7: SCOPE 




010320 




TST10: 




010320 

000240 




NOP 



010322 

033737 

001600 

001332 


BIT 

BITS+<10*2>,TS1 


010330 

001002 




BNE 

.♦6 


010332 

000137 

010564 



JMP 

TST11 


010336 

012737 

000010 

001116 


MOV 

#10.STSTNK 


010344 

004737 

023734 



J SR 

PC.LODPRH 


010350 

012737 

01 0504 

001124 


MOV 

#TEST10,SLPERR 


010356 

013737 

002322 

001220 


MOV 

RPT, STINES 


010364 

112737 

000031 

0C1131 


MOVB 

#25..SERMAX 

9Q1 

010372 

012737 

000010 

001240 


MOV 

#10, STESTN 

3ol 

010400 

032777 

010000 

170546 


BIT 

#SWl2,iSWR 


010406 

001406 




BEO 

.♦16 


010410 

104401 

037265 



TYPE 

-MSGTST 


010414 

013746 

001240 



MOV 

STESTN. -(SP) 


010420 

104403 




TYPOS 



010422 

003 




.BYTE 

3 


010423 

000 




•BYTE 

0 

382 

010424 

012737 

010432 

001122 


MOV 

#1S,SLPADR 

383 

010432 

113737 

002340 

036540 

IS: 

MOVB 

FS.DP8.B+10 

384 

010440 

113737 

002340 

036562 


MOVB 

FS, DP8.C+10 

385 

010446 

113737 

002332 

036541 


MOVB 

FT.DPB.8+11 

386 

010454 

113737 

002332 

036563 


MOVB 

FT.DP8.Cm 

387 

010462 

013737 

002324 

036542 


MOV 

FC,DP8.B*12 

388 

010470 

013737 

002324 

036564 


MOV 

FC.DPB.C+12 

392 

010476 

012737 

010562 

001350 


MOV 

#EXIT10, BYPASS 


010504 




TEST10: 



393 

010504 

012706 

001100 



MOV 

fSTACK.SP 

394 

010510 




IS: 




010510 

004037 

024466 



JSR 

RO.CALL.C 

395 

010514 

004037 

024244 



JSR 

RO.CALL.B 

396 

010520 

063737 

002330 

036564 


ADD 

IC.DP8.CH2 

397 

010526 

023737 

002326 

036564 


CMP 

LC.DPB.C+12 

398 

010534 

002365 




BGE 

IS 

399 

010536 

013737 

002324 

036564 


MOV 

FC,DPB.C*12 

400 

010544 

063737 

002330 

036542 


ADD 

IC,DP8.B*12 


INCREMENT THE TRACK ADDRESS 
MAXIMUM ? 

BR IF NOT 

RELOAD STARTING TRACK ADDRESS 
CALL SCOPE ROUTINE 


• *************************************************************** 

iTEST 10 ALL SEEKS TEST 

•THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
•TO ALL OTHER CYLINDERS. 

•BEGINNING WITH CYLINDER 'F C', THE TEST SEEKS TO EACH CYLINDER 
•BETWEEN 'F C’ AND 'LC' FROM CYINDER ’FC'. THE BEGINNING CYLINDER 
•ADDRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
•ADDRESS AND ALL CYLINDERS BETWEEN *FC* AND 'LC'. THE SEQUENCE 
•CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 

• *************************************************************** 


IS ;D0 THIS TEST? 

BR IF YES 

NO— JUMP TO TEST11 

SET TEST «10 AND CLEAR (SERFLG) 

LOAD THE PARMETERS FOR THE TEST 
SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 
MAX ERRORS ALLOWED FOR TEST 
; SET TEST NUMBER IN APT MAIL BOX 

INHIBIT TYPING TEST NUMBER ? 

BR IF YES 
TYPE ’TEST* 

.-SAVE STESTN FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
;TYPE 3 OIGIT(S) 

; SUPPRESS LEADING ZEROS 

SETUP THE LOOP ADDRESS 
SECTOR ADDRESS 
SECTOR ADDRESS 
TRACK ADDRESS 
TRACK ADDRESS 
STARTING CYLINDER ADDRESS 
STARTING CYLINDER ADDRESS 
TEST ABORT EXIT 

SETUP THE STACK POINTER 

GO EXECUTE THE COMMAND 

GO EXECUTE THE COMMAND 

INCREMENT THE ENDING CYLINDER ADDRESS 

CHECK IF EXCEEDING MAXIMUM 

BR IF NOT 

RESET ENDING CYLINDER ADDRESS 
INCREMENT THE STARTING ADDRESS 


SEQ 0063 


n 5 


SEQ 0064 



.'EXCEEDING MAXIMUM ? 

;BR IF NOT 

.'CALL SCOPE ROUTINE 
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1 .S8TTL TIMING TESTS 


SEQ 0065 


;/////////////////////////////////////////////////////////////// 

• THE TIMING TESTS UIL«. ENSURE THAT THOSE FUNCTIONS BEING 
•TIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE 'RM80 
•ENGINEERING SPECIFICATIONS". 

• THE SEEK TIMING UHL BE PERFORMED USING EXPLICIT SEEK 
•OPERATIONS. AT THE COMPLETION OF EACH OF THE TIMING 
•TESTS THE MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE 
•TYPED. 

;/////////////////////////////////////////////////////////////// 


010564 

010564 

010566 

010574 

010576 

010602 

010610 

010614 

010622 

010630 

010636 

24 

010644 

010652 

010654 

010660 

010664 

010666 

010667 

25 010670 

26 010674 

29 010676 

30 010702 

31 010710 

32 010714 
54 010716 

010722 

010730 

010736 

010742 

010750 

010756 


000240 

033737 

001002 

000137 

012737 

004737 

012737 

013737 

112737 

012737 

032777 

001406 

104401 

013746 

104403 

003 

000 

005737 

003002 

000137 

012737 

004037 

000402 

000137 

012737 

112737 

005037 

013737 

012737 

004037 


001602 001332 


011426 

000011 

023734 

011102 

002322 

000031 

000011 


001116 

001124 

001220 

001131 

001240 


010000 170302 

037265 

001240 


001342 

011424 

010702 

025500 

011424 

010722 

000105 

036516 

002324 

011424 

024076 


.-•TEST 11 ROTATIONAL SPEED TIMING TEST 

.-•THIS TEST WILL START A SEARCH TO CYLINDER *FC\ TRACK 'FT , 
.-•SECTOR ’FS’. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT 
;*IS SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE 
.-•IS REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED 
.-•AND CHECKED TO ENSURE IT IS WITHIN TOLERANCE: 

;* LO LIMIT (16.67MS - 4.3X) = 15.97MS a 50/60 HZ. 

;* HI LIMIT C16.67MS ♦ 3.51) = 17.27MS a 50/60 HZ. 

. **************************************************************** 
TST11: 

NOP 

BIT BITS+<11*2>,TSTNMS ;D0 THIS TEST? 

BNE .+6 ;BR IF YES 

JMP TST12 ; NO— JUMP TO TEST12 


001122 


001122 

036510 

036520 

001350 


BIT 

BEO 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

TST 

BGT 

JMP 

MOV 

JSR 

BR 

JMP 

MOV 

H0V8 

CLR 

MOV 

MOV 

JSR 


#11,JTSTNM 
PC.LODPRM 
#TEST11 .JLPERR 
RPT.JTIMES 
#25. .JERMAX 
#1 1 .JTESTN 

#SUl2.aSUR 
.♦16 
.MSGTST 
JTESTN. -(SP) 


CLKSTA 

1 $ 

EXIT11 
#. .JLPADR 
RO.SRCHOO 

2 $ 

EXIT11 

#.. JLPADR 

#SEEK,DP9.A+2 

DP8.A+10 

FC.DPB.A+12 

#EXI Til, BYPASS 

RO.CALL.A 


SET TEST #11 AND CLEAR (JERFLG) 
LOAD THE PARMETERS FOR THE TEST 
SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 
MAX ERRORS ALLOWED FOR TEST 
.-SET TEST NUMBER IN APT MAIL BOX 

INHIBIT TYPING TEST NUMBER ? 

BR IF YES 
TYPE 'TEST' 

.-SAVE JTESTN FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
.-TYPE 3 DIG! HS) 

.-SUPPRESS LEADING ZEROS 

KW11-P CLOCK? 

YES— START TEST 
NO— JUMP TO EXI Til 
SETUP LOOP ADDRESS 
DO A MASS8US INIT ft RECAL 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 
ERROR LOOP ADDRESS 
SEEK=COMMAND 
USE TRACK 0 ft SECTOR 0 
STARTING CYLINDER 
GO TO EXIT11 IF ERROR 
GO EXECUTE THE COMMAND 
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B 6 


SEQ 0066 


010762 

013764 

002324 

000034 


MOV 

FC.RMDC(R4) 

010770 

013746 

0C2340 



MOV 

FS.-fSP) 

010774 

113766 

002332 

000001 


MOVB 

FT.KSP) 

011002 

012664 

000006 



MOV 

($P)+.RMDA(R4) 

011006 

012737 

011424 

001222 


MOV 

#EXIT11 ,SE SCAPE 

011014 

005005 




CLR 

R5 

55 




.’SETUP 

PARAMETER TABLE FOR RM80 

56 0110.6 

010046 




MOV 

RO.-(SP) 

57 011020 

113)* ' 

036574 



MOVB 

DTADPB.RO 

58 011024 

03 27j) 

OOOIOO 

001314 


BIT 

#SU06,C.SUR 

59 011032 

O^ll 




BEQ 

3S 

71 011034 

0.. ,v 3 

v >1650 



MOV 

#T11B,R3 

011040 

012737 

001650 

011414 


MOV 

#T118,TP50 

011046 

012737 

001716 

011422 


MOV 

#SP11B.TPS50 

011054 

000410 




BR 

4$ 

011056 

012737 

001640 

011376 

3$: 

MOV 

#T11A,TP60 

011064 

012703 

001640 



MOV 

#T11A,R3 

011070 

012737 

001710 

011404 


MOV 

#SP11A.TPS60 

011076 

012600 



4$: 

MOV 

(SPH.RO 

011100 

000240 




NO P 


011102 




TEST11 : 



72 011102 

012706 

001100 



MOV 

fSTACK.SP 

73 011106 

012701 

000012 



MOV 

#10., Rl 

74 011112 

004737 

025664 



JSR 

PC.STRTNR 

75 011116 

012777 

011304 

170404 


MOV 

#4S,aPKV 

76 011124 

012777 

025662 

020236 


MOV 

#D0RTI,3RMVEC 

77 011132 

005077 

170400 


IS: 

CLR 

9PKS 

78 011136 

012777 

000131 

170370 


MOV 

#131,3PKCS 

79 011144 

012714 

000131 



MOV 

#SEARCH,(R4> 

80 011150 

OOOGOT 




WAIT 


81 011152 

042777 

000101 

170354 


BIC 

flOl.BPKCS 

82 011160 

032764 

040000 

000012 


BIT 

#ERR,RNDS(R4) 

83 011166 

001411 




BEQ 

2$ 

84 011170 

104412 




SAVREG 


011172 

012702 

036574 



MOV 

#DTADP8,R2 

011176 

004737 

035744 



JSR 

PC.SVRH70 

011202 

004737 

023146 



JSR 

PC.CNTCLR 

011206 

104413 




RESREG 


85 011210 

104017 




EMT 

17 

86 011212 

T05077 

170320 


2$: 

CLR 

aPKB 

87 011216 

012714 

000131 



MOV 

#5EARCH, (R4) 

88 011222 

012777 

000131 

170304 


MOV 

#131,aPKCS 

89 011230 

000001 




WAIT 


90 011232 

042777 

000101 

170274 


BIC 

flOl.aPKCS 

91 011240 

032764 

040000 

000012 


BIT 

#ERR,RNDS(R4) 

92 011246 

001411 




BEQ 

3$ 

93 011250 

104412 




SAVREG 


011252 

012702 

036574 



NOV 

#DTADP8.R2 

011256 

004737 

035744 



JSR 

PC.SVRH/O 

011262 

004737 

023146 



JSR 

PC.CNTCLR 

011266 

104413 




RESREG 


94 011270 

104017 




EMT 

17 

95 011272 

004737 

025726 


3$: 

JSR 

PC. COUNT 

96 011276 

005301 




DEC 

Rl 

97 011300 

003314 




BGT 

IS 

98 011302 

000420 




BR 

5S 


FC 

FS 

FT 

LOAD FT/FS 

; ESCAPE TO EXIT11 ON ERROR 
COUNT UP 


SAVE RO 
DRIVE ADDRESS 

CHECK CONTROL SUR FOR 60 HZ. 
BR IF YES 

LOAD 50 HZ. TABLE FOR RM80 


.‘EXIT 

;LOAD 60 HZ. TABLE FOR RM80 


RESTORE RO 
EXIT 

SETUP STACK 

TIME 10 SEARCHES 

INITIALIZE THE TIMERS 

SETUP VECTOR IN CASE OF OVERFLOW 

SETUP RM80 VECTOR 

START COUNTING AT ZERO 

INT.EN.. COUNT UP AT 100S HZ RATE 

START A SEARCH 

WAIT ON INTERRUPT 

STOP THE CLOCK 

ERROR? 

NO— BRANCH 
SAVE R0-R5 
DP8 POINTER 

SAVE ALL THE RH/RM REGISTERS 
GO CLEAR CONTROLLER 
RESTORE R0-R5 

START THE COUNT AT ZERO 
START A SEARCH 
START THE CLOCK 
WAIT ON INTERRUPT 
STOP THE CLOCK 
IS •^Rsl"? 

NO— BRANCH 
SAVE R0-R5 
DPB POINTER 

SAVE ALL THE RH/RM REGISTERS 
GO CLEAR CONTROLLER 
RESTORE R0-R5 

UPDATE THE COUNT 
DONE? 

NO— BRANCH 
YES— GO TO THE EXIT 
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SEQ 0067 


99 011304 

042777 

000101 

170222 

4$: BIC 

#101 .8PKCS 

.-STOP THE CLOCK 

100 011312 

005037 

177776 


CLR 

PS 

.-DROP THE PRIORITY 

101 011316 

012600 



MOV 

<SP)*. RO 

;PC OF WAIT+2 

102 011320 

005726 



TST 

(SP)* 

.-POP THE PS FROM THE STACK 

103 011322 

104412 



SAVREG 


.-SAVE R0-R5 

011324 

012702 

036574 


MOV 

#DTADPB.R2 

PC.SVRH70 

;DPB POINTER 

011330 

004737 

035744 


.'SR 

.-SAVE ALL THE RH/RM REGIS T ERS 

011334 

004737 

023146 


JSR 

PC.CNTCLR 

; GO CLEAR CONTROLLER 

011340 

104413 


RESREG 

20 

.•RESTORE R0-R5 

104 011542 

104020 



EMT 


105 011344 

106 

107 011350 

004737 

023146 


5$: JSR 

PC.CNTCLR 

;G0 CLEAR MASSBUS CONTROLLER 

004737 

023240 


JSR 

PC.ST.CLK 

.•INITIALIZE THE CLUCK 

108 011354 

012777 

033526 

020006 

MOV 

#ISR,8RMVEC 

.•RESTORE RH/RM INT. VECTOR 

109 011362 

032737 

000100 

001314 

BIT 

#S W06.C.SWR 

;60 HZ? 

128 011370 

001007 



BNE 

EXIT. A 

; NO-BRANCH 

011372 

004037 

026166 


JSR 

RO.TYPTIM 

.•TYPE THE TIMING 

011376 

001640 



TP60: Til A 


.•TABLE ADDRESS 

011400 

004037 

026060 


JSR 

RO.SPTYP 

.•TYPE THE SPEC 

011404 

001710 


TPS60: SP11A 


011406 

000406 



BR 

EXI Til 

.•EXIT 

011410 

004037 

026166 


EXIT. A: JSR 

R0.TYP1IM 

.-TYPE THE TIMING 

011414 

001650 



TP50: T11B 


.•TABLE ADDRESS 

011416 

004037 

026060 


JSR 

RO.SPTYP 

• 

• 

011422 

001716 



TPS50: SP118 


• 

129 011424 

000004 



EXIT11 : SCOPE 


•CALL SCOPE ROUTINE 


130 

139 

140 


•TEST 12 ONE CYLINDER SEEK TININ6 TEST 

•THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
•CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE 
•CYLINDER ’LC'. THEN REVERSE SEEK TO CYLINDER ’FC\ THE 
•TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
•EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
•MAXIMUM TIME IS 6.0 MS 

• *************************************************************** 


HI 


011426 



TST12: 


011426 

000240 



NOP 

011430 

033737 

001604 

001332 

BIT 

011436 

001002 



BNE 

011440 

000137 

012130 


JMP 

011444 

012737 

000012 

001116 

NOV 

011452 

004737 

023734 


JSR 

011456 

012737 

011636 

001124 

MOV 

011464 

013737 

002322 

001220 

MOV 

011472 

112737 

000031 

001131 

M0V8 

011500 

012737 

000012 

001240 

MOV 

011506 

032777 

010000 

167440 

BIT 

011514 

001406 



BEQ 

011516 

104401 

037265 


TYPE 

011522 

013746 

001240 


MOV 

011526 

104403 



TYPOS 

011530 

003 



.BYTE 


BJTS+<12*2>,TSTNMS 


.♦6 
TST13 

#12,$TSTNH 
PC.LODPRH 
#TEST12,SLPERR 
RPT. STINES 
#25. ,$ERHAX 
#12.STESTN 

#SUl2,aSUR 

.*16 

.MSGTST 

STESTN.-(SP) 


:D0 THIS TEST? 


BR IF YES 
NO— JUMP TO TEST13 

SET TEST #12 AND CLEAR (SERFLG) 
LOAD THE PARMETERS FOR THE TEST 
SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 
MAX ERRORS ALLOWED FOR TEST 
;SET TEST NUMBER IN APT HAIL BOX 

INHIBIT TYPING TEST NUMBER ? 

BR IF YES 
TYPE ’TEST' 

SAVE STESTN FOR TYPEOUT 
GO TYPE— ?:TAL ASCII 
TYPE 3 DIGIT (S) 
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011531 

000 




.BYTE 

0 

.•SUPPRESS LEADING ZEROS 

142 

011532 

"05737 

001342 



TST 

CLKSTA 

KW11-P CLOCK? 

143 

011536 

003002 




BGT 

1S , 

YES— START TEST 

146 

011540 

000137 

012126 



JMP 

EXIT12 

NO— JUMP TO EXIT12 

147 

011544 

012737 

011544 

001122 

IS: 

MOV 

#. .SLPADR 

SETUP THE LOOP ADDRESS 

148 

011552 

004037 

025500 



JSR 

RO.SRCHOO ; 

DO A MASSBUS INIT. AND RE CAL 

149 

011556 

000402 




BR 

2S ; 

NO ERROR RETURN 

161 

011560 

000137 

012126 



JMP 

EXIT12 

ERROR RETURN— SCOPE LOOP CALL 


01 1 564 

012737 

011564 

001122 

21: 

MOV 

#., SLPADR 

ERROR LOOP ADDRESS 


011572 

112737 

000105 

036510 


MOVB 

#S£EK.DPB.A*2 

SEEK=COMMAND 


011600 

005037 

036516 



CLR 

DP8.A+10 

USE TRACK 0 t SECTOR 0 


011604 

013737 

002324 

036520 


MOV 

FC.DPB.A+12 ; 

STARTING CYLINDER 


011612 

012737 

012126 

0C1350 


MOV 

#EXIT12, BYPASS 

GO TO EXIT12 IF ERROR 


011620 

004037 

024076 



JSR 

RO.CALL.A 

GO EXECUTE THE COMMAND 


011624 

012703 

001660 



MOV 

#T12,R3 

PARAMETER POINTER 


011630 

012737 

012 1 26 

001222 


MOV 

#EXIT12,SESCAPE 

.•ESCAPE TO EXIT12 ON ERROR 


011636 




TEST12: 




162 

011636 

012706 

001100 



MOV 

#STACK,SP 

SETUP STACK 

163 

011642 

013737 

002324 

036606 


MOV 

FC.DTADPB+12 

START WITH BEGINNING CYLINDER 

164 

011650 

005237 

036606 



INC 

DTADP8+12 

INCREMENT THE BEGINNING CYLIN! 

165 

011654 

005005 




CLR 

R5 

SET THE UP/DOWN SWITCH TO UP 

166 

011656 

004737 

025664 



JSR 

PC.STRTMR 

INITIALIZE THE TIMERS 

167 

011662 

012777 

012034 

167640 


MOV 

#5S.8PKV 

SETUP INCASE OF OVERFLOW 

168 

011670 

012777 

025662 

017472 


MOV 

#D0RTI.8RMVEC 

SET RM80 VECTOR 

169 

011676 

005077 

167634 


IS: 

CLR 

BPKB 

START THE COUNTER AT ZERO 

170 

011702 

013764 

036606 

000034 


MOV 

DTADP8*12,RH0C(R< 

) .-LOAD DESIRED CYLINDER 

171 

011710 

012714 

000105 



MOV 

#SEEK, (R4) 

START A SEEK 

172 

011714 

012777 

000131 

167612 


MOV 

#131 .8PKCS 

START THE CLOCK 

173 

011722 

000001 




WAIT 


WAIT ON INTERRUPT 

174 

011724 

042777 

000101 

167602 


B1C 

#101,8PKCS 

STOP THE CLOCK 

175 

011732 

032764 

040000 

000012 


BJT 

#ERR,RMDS(R4) 

ANY DISK ERRORS? 

176 

011740 

001411 




BEQ 

2$ 

NO— BRANCH 

177 

011742 

104412 




SAVREG 


SAVE R0-R5 


011744 

012702 

036574 



MOV 

#0TADPB.R2 

DPB POINTER 


011750 

004737 

035744 



JSR 

PC.SVRH70 

SAVE ALL THE RH/RM REGISTERS 


011754 

004737 

023146 



JSR 

PC.CNTCLR 

GO CLEAR CONTROLLER 


011760 

104413 




RESREG 


RESTORE R0-R5 

178 

011762 

104017 




EMT 

17 


179 

011764 

004737 

025726 


2S: 

JSR 

PC, COUNT 

COUNT THIS SEEKS TIME 

180 

011770 

005705 




TST 

R5 

UP OR DOWN? 

181 

011772 

001011 




ONE 

4$ 

DOWN— BRANCH 

182 

011774 

005237 

036606 


3S: 

INC 

DTADPB*12 

MOVE TO NEXT CYLINDER 

183 

012000 

023737 

036606 

002326 


CMP 

DTADP8+12.LC 

OUT OF CYLINDERS? 

184 

012006 

002733 




BLT 

IS 

NO— 60 DO THE NEXT SFEK 

185 

012010 

012705 

177777 



MOV 

#-1,R5 

SET UP/DOUN SWITCH TO DOWN 

186 

012014 

000730 




BR 

IS 

GO DO THE NEXT SEEK 

187 

012016 

005337 

036606 


4$: 

DEC 

DTADP8H2 

MOVE TO NEXT CYLINDER 

188 

012022 

023737 

036606 

002324 


CMP 

0TADP8*12,FC 

OUT OF CYLINDERS? 

189 

012030 

003322 




BGT 

IS 

NO— 60 DO THE NEXT SEEK 

190 

012032 

000420 




BR 

6$ 

GO TO THE EXIT 

191 

012034 

042777 

000101 

167472 

5S: 

BIC 

#ioi,apxcs 

STOP THE CLOCK 

192 

012042 

005037 

177776 



CLR 

PS 

DROP THE PRIORITY 

193 

012046 

012600 




MOV 

(SPH, RO 

PC OF UAIT+2 

194 

012050 

005726 




TST 

(SP) + 

POP THE PS FROM THE STACK 

195 

012052 

104412 




SAVREG 


SAVE R0-R5 


012054 

012702 

036574 



MOV 

#0TADPB,R2 

DPB POINTER 



E 6 


C2RNGA0 RM80 FCTNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 14-4 
T12 ONE CYLINDER SEEK TIDING TEST 


012060 
012064 
012070 
1% 012072 

197 012074 

198 012100 

199 012104 

204 012112 
012116 
012120 
012124 

205 012126 

206 
220 
221 


004737 
004 727 
104413 
104020 
004737 
004737 
012777 
004037 
001660 
004037 
001724 
000004 


035744 

023146 


023146 

023240 

033526 

026166 

026060 


6S: 


017256 


EXIT12: 


JSR 

JSR 

RESREG 

EMT 

JSR 

JSR 

MOV 

JSR 

T12 

JSR 

SP12 

SCOPE 


PC,SVRH70 

PC.CNTCLR 

20 

PC.CNTCLR 
PC. ST. CUC 
flSR.RRMVEC 
RO.TYPTIM 

RO.SPTYP 


SAVE ALL THE RH/RM REGISTERS 
GO CLEAR CONTROLLER 
RESTORE R0-R5 

GO CLEAR MASS8US CONTROLLER 
INITIALIZE THE CLOCK 
RESTORE RH/RM INT. VECTOR 
GO TYPE THE TIMES 
POINTER 


.-CALL SCOPE ROUTINE 


♦TEST 13 AVERAGE SEEK TIMING TEST 

•THIS TEST HILL COMMAND A FORWARD SEEK FROM CYLINDER 'FC' TO 
•CYLINDER ’LC\ THEN A REVERSE SEEK FROM CYLINDER ’LC' TO 
•CYLINDER 'FC*. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY 
•ARE WITHIN THE TOLERANCE ALLOWED FOR THE AVERAGE SEEK. 

•THIS SEQUENCE IS REPEATED 128 TIMES (FOR A TOTAL OF 256 SEEKS). 
•MAXIMUM TIME IS 25.0 MS 

THERE ARE NO SPECIFICATIONS GIVEN FOR AN AVERAGE SEEK TIME 
ON THIS PARTICULAR DRIVE. THEREFORE. THIS TEST SHOULD BE 
USED FOR REFERENCE ONLY. 


012130 




TST13: 


012130 

000240 




NOP 

012132 

033737 

001606 

001332 


BIT 

012140 

001002 




BNE 

012142 

000137 

012670 



JMP 

012146 

012737 

000013 

001116 


MOV 

012154 

004737 

023734 



JSR 

012160 

012737 

012340 

001124 


MOV 

012166 

013737 

002322 

001220 


MOV 

012174 

112737 

000031 

001131 


MOVB 

012202 

012737 

000013 

001240 


MOV 

CCC 

012210 

032777 

010000 

166736 


BIT 

012216 

001406 




BEQ 

012220 

104401 

037265 



TYPE 

012224 

013746 

001240 



MOV 

012230 

104403 




TYPOS 

012232 

003 




.BYTE 

012233 

000 




.BYTE 

223 012234 

005737 

001342 



TST 

224 012240 

003002 




BGT 

240 012242 

000137 

012666 



JMP 

012246 

C12/37 

012246 

001122 

IS: 

MOV 

012254 

004037 

025500 



JSR 

012260 

000402 




BR 

02262 

C00137 

012666 



JMP 

012266 

012737 

012266 

001122 

2S: 

MOV 


BITS+<13*2>.TSTNNS 


.+6 
TST14 

#13.$TSTNH 
PC.LODPRN 
#t£$T13.SLPERR 
RPT, STINES 
#25. .SERMAX 
#13.iTESTN 

#SWl2.dSWR 

.+16 

.MSGTST 

STESTN.-(SP) 

3 

0 

CLKSTA 

IS 

EXIT13 

I..SLPADR 

RO.SRCHOO 

2S 

EXIT13 
#. .SLPADR 


;D0 THIS TEST? 


ki 

BR IF YES 
NO— JUMP TO TEST14 

SET TEST #13 AND CLEAR (SERFLG) 
LOAD THE PARMETERS FOR THE TEST 
SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 
MAX ERRORS ALLOWED FOR TEST 
;SET TEST NUMBER IN APT NAIL BOX 

INHIBIT TYPING TEST NUMBER ? 

BR IF YES 
TYPE 'TEST' 

SAVE STESTN FOR TYPEOUT 
GO TYPE— OCTAL ASCII 
TYPE 3 DIGIT (S) 

SUPPRESS LEADING ZEROS 

KW11-P CLOCK? 

YES— START TEST 
NO— JUMP TO EXIT13 
SET THE LOOP ADDRESS 
DO A MASS8US INIT § RE CAL 
RETURN HERE IF NO ERROR 
RETURN HERE ON ERROR 
ERROR LOOP ADDRESS 


SEfl 0069 
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01 2274 
012302 
012306 
0123U 
012322 
012326 
012332 
012340 

241 012340 

242 012344 

243 012350 

244 012354 

245 012362 

246 012370 

247 012374 

246 012^52 

249 012410 

250 012416 

251 012420 

252 012426 

253 012434 

254 012436 
012440 
012444 
012450 
012454 

255 012456 

256 012460 

257 012462 

258 012466 

259 012472 

260 012500 

261 012506 

262 012514 

263 012516 

264 012524 

265 012532 

266 012534 
012536 
012542 
012546 
012552 

267 012554 

268 012556 

269 012562 

270 012566 

271 012570 

272 012572 

273 012574 

274 012602 

275 012606 

276 012610 

277 012612 
012614 
012620 
012624 


112737 

005037 

013737 

01273/ 

004037 

012703 

012737 

012706 

012701 

004737 

012777 

012777 

005077 

013764 

012764 

012777 

000001 

042777 

032764 

001411 

104412 

012702 

0C4737 

004737 

104413 

104017 

005005 

004737 

005077 

013764 

012764 

012777 

000001 

042777 

032764 

001411 

104412 

012702 

004737 

004737 

104413 

104017 

012705 

004737 

005301 

003277 

m 

005037 

012600 

005726 

104412 

012702 

004737 

004737 

104413 


000105 

036516 

002324 

012666 

024076 

001670 

012666 

001100 

000200 

025664 

012574 

025662 

167142 

002326 

000105 

000131 

000101 

040000 


036574 

035744 

023146 


025726 

167044 

002324 

000105 

000131 

000101 

040000 


036574 

035744 

023146 


177777 

025726 


000101 

177776 


036574 

035744 

023146 


036510 

036520 

001350 


001222 


167146 

017000 

000034 

OOOCOO 

167116 

167106 

000012 


TEST13: 


000034 

000000 

167020 

167010 

000012 


166732 


MOV 

MOV 

JSR 

MOV 

MOV 

CIR 

NOV 

NOV 

NOV 

WAIT 

BIC 

BIT 

BEQ 

SAVREG 

NOV 

JSR 

JSR 

RESREG 

ENT 

CLR 

JSR 

CLR 

NOV 

NOV 

NOV 

WAIT 

BIC 

BIT 

BEO 

SAVREG 

NOV 

JSR 

JSR 

RESREG 

ENT 

NOV 

JSR 

DEC 

BGT 

BR 

BIC 

CLR 

NOV 

TST 

SAVREG 

NOV 

JSR 

JSR 

RESREG 


#SEEK,DPB.A+2 

DP8.A+10 

FC.DP8.A+12 

#EXIT1 3, BYPASS 

RO-CALL.A 

#Tl3,R3 

#EXIT13,$ESCAPE 

#STACK,SP 

#128.,R1 

PC-STRTNR 

#5S»aPKV 

#DORTI,iRNVEC 

8PKB 

LC,RMDC(R4) 
#SEEK.RNCS1(R4> 
#131 .9PKCS 

#10l,aPKCS 

#ERR.RNDS(R4> 

2 $ 

#DTADPB.R2 

PC.SVRH70 

PC.CNTCLR 

17 

R5 

PC. COUNT 

8PKB 

FC.RMDCCR4) 
fSfEK.RNCSI <R4) 
#131 .8PKCS 

#101,3PKCS 

#ERR.RNDS(R4) 

3$ 

#DTADP8.R2 

PC.SVRH70 

PC.CNTCLR 

17 

#-1.R5 
PC, COUNT 
R1 
1 $ 

6S 

riOi.apr.es 

PS 

(5PJ+.R0 

<SPH 

#DTADPB,R2 

PC.SVRH70 

PC.CNTCLR 


SEQ 0070 


SEEK= COMMAND 

USE TRACK 0 t SECTOR 0 

STARTING CYLINDER 

GO TO EXIT13 IF ERROR 

GO EXECUTE THE COMMAND 

PARAMETER POINTER 

; ESCAPE TO EXIT13 ON ERROR 


SETUP STACK 

REPEAT ••'FC'-’LC’-’FC'” 128 TINES 

INIT. THE COUNTERS 

SET UP VECTOR IN CASE OF OVERFLOW 

SETUP RN80 VECTOR 

START COUNT AT ZERO 

•MIDDLE' CYLINDER 

START A SEEK 

START THE CLOCK 

WAIT ON INTERRUPT 

STOP CLOCK 

ERR=1? 

NO— BRANCH 
SAVE R0-R5 
DPB POINTER 

SAVE ALL THE RH/RM REGISTERS 
GO CLEAR CONTROLLER 
RESTORE R0-R5 


SET UP/DOWN SWITCH TO UP 
UPDATE THE COUNT 
START THE COUNT AT ZERO 
BEGINNING CYLINDER 
START A SEEK 
START THE CLOCK 
WAIT ON INTERRUPT 
STOP THE CLOCK 
ERR=1? 

.JO-BRANCH 
SAVE R0-R5 
DPB POINTER 

SAVE ALL THE RH/RM REGISTERS 
GO CLEAR CONTROLLER 
RESTORE R0-R5 

SET UP/DOMN SWITCH TO DOWN 

UPDATE THE COUNT 

DONE? 

NO— BRANCH 
YES— EXIT 
STOP THE CLOCK 
DROP THE PRIORITY 
PC OF UAIT+2 

POP THE PS FROM THE STACK 
SAVE R0-R5 
DPB POINTER 

SAVE ALL THE RH/RM REGISTERS 
GO CLEAR CONTROLLER 
RESTORE R0-R5 
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278 012632 

279 012634 

280 012640 

281 012644 

286 012652 
012656 
012660 
012664 

287 012666 

288 

304 

305 


104020 


EMT 

20 

004737 

023146 

6S: JSR 

PC.CNTCLR 

004737 

023240 

JSR 

PC.ST.CLK 

012777 

033526 

016516 MOV 

#ISR,8RMVEC 

004037 

026166 

JSR 

RO.TYPTIM 

001670 


T13 


004037 

026060 

JSR 

RO.SPTYP 

001732 


SP13 


000004 


EXIT13: SCOPE 



GO CLEAR MASS8US CONTROLLER 
INITIALIZE THE CLOCK 
RESTORE RH/RM INT. VECTOR 
GO TYPE THE TIMES 
POINTER 


; CALL SCOPE ROUTINE 


306 


012670 

012670 

012672 

012700 

012702 

012706 

012714 

012720 

012726 

012734 

012742 

012750 

012756 

012760 

012764 

012770 

012772 

012773 


•TEST 14 MAXIMUM SEEK TIMING TEST 

•THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER ’FC* TO 
•CYLINDER 'LC'. THEN A REVERSE SEEK FROM CYLINDER ’LC’ TO 
•CYLINDER *F C\ BOTH SEEKS ARE TIMED, BUT ONLY THE FORWARD SEEKS 
•ARE CHECKED TO ENSURE THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE 
•MAXIMUM SEEK TIME. THIS SEQUENCE IS REPEATED 128 TIMES (FOR A TOTAL 
•OF 256. SEEKS) . MAXIMUM (FORWARD) TIME IS 50.0 MS 

* THERE IS NO SPECIFICATION GIVEN FOR THE MAXIMUM REVERSE SEEK TIME 
ON THIS PARTICULAR DRIVE. THEREFORE, ANY REVERSE SEEK TIMES ABOVE 
THE MAXIMUM TIME OF 50.0 MS WILL NOT BE TYPED IN THE TIMING REPORT. 
HOWEVER. THE TIMING REPORT WILL STILL TYPE THE MINIMUM, MAXIMUM, 
AND AVERAGE TIMES FOR THE REVERSE SEEKS. 

* 


000240 

033737 

001002 

000137 

012737 

004737 

012737 

013737 

112737 

012737 

032777 

001406 

104401 

013746 

104403 

003 

000 


TST14: 




NOP 

001610 

001332 

BIT 



BNE 

013440 


JMP 

000014 

001116 

MOV 

023734 


JSR 

013100 

001124 

MOV 

002322 

001220 

MOV 

000031 

001131 

N0V8 

000014 

001240 

NOV 

010000 

166176 

BIT 



BEQ 

037265 


TYPE 

001240 


MOV 

TYPOS 


BITS+<14*2>,TSTNHS 
.♦6 
TST15 


.BYTE 

.BYTE 


#14,$TSTNM 

PC-LODPRM 

itIsth.slperr 

RPT, STINES 
#25. .SERMAX 
#14.$TESTN 

#SW12.iSWR 

.>16 

.MSGTST 

STESTN.-(SP) 

3 

0 


307 

012774 

005737 

001342 



TST 

CLKSTA 

308 

013000 

003002 




BGT 

IS 

311 

013002 

000137 

013436 



JMP 

EXIT14 

312 

013006 

012737 

013006 

001122 

IS: 

MOV 

#.,SLPADR 

313 

013014 

004037 

025500 



JSR 

RO.SRCHOO 

314 

013020 

000402 




BR 

2$ 

326 

01302? 

000137 

013436 



JMP 

EXIT14 


013026 

012737 

013026 

001122 

21: 

NOV 

#. .SLPADR 


013034 

112737 

C00105 

036510 


Move 

#SE EK.DPB.A+2 


- ;D0 THIS TEST? 

BR IF YES 
NO— JUMP TO TESTIS 


SET TEST #14 AND CLEAR (SERFLG) 
LOAD THE PARMETERS FOR THE TEST 
SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 
MAX ERRORS ALLOWED FOR TEST 
;SET TEST NUMBER IN APT NAIL BOX 

INHIBIT TYPING TEST NUMBER ? 

BR IF YES 
TYPE 'TEST* 

SAVE STESTN FOR TYPEOUT 
GO TYPE— OCTAL ASCII 
TYPE 3 DIGIT(S) 

SUPPRESS LEADING ZEROS 

KW11-P CLOCK 
YES— START TEST 
NO— JUMP TO EXIT14 
SETUP THE LOOP ADDRESS 
DO A NASSAUS 1MIT l RE CAL 
RETURN HERE IF NO ERROR 
RETURN HERE ON ERROR 
ERROR LOOP ADDRESS 
SEEK=COMHAND 


SEQ 0071 


i 


H 6 
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013042 

013046 

013054 

013062 

013066 

013072 

013100 

327 013100 

328 013104 

329 013110 

330 013114 

331 013122 

332 013130 

333 013134 

334 013142 

335 013150 

336 013156 

337 013160 

338 013166 

339 013174 

340 0.3176 
013200 
013204 
013210 
013214 

341 013216 

342 013220 

343 013222 

344 013226 

345 013232 

346 013240 

347 013246 

348 013254 

349 013256 

350 013264 

351 013272 

352 013274 
013276 
013302 
013306 
013312 

353 01 1314 

354 013316 

355 013322 

356 013326 

357 013332 

358 013336 

359 013340 

360 013342 

361 013344 

362 013352 

363 013356 

364 013360 

365 013362 
013364 
013370 
013374 


005037 

013737 

012737 

004037 

012703 

012737 

012706 

012701 

004737 

012777 

012777 

005077 

013764 

012764 

012777 

000001 

042777 

032764 

001411 

104412 

012702 

004737 

004737 

104413 

104017 

005005 

004737 

005077 

013764 

012764 

012777 

000001 

042777 

032764 

001411 

104412 

012702 

004737 

004737 

104413 

104017 

012705 

004737 

005037 

005037 

005301 

003273 

000420 

042777 

005037 

012600 

005726 

104412 

012702 

004737 

004737 


036516 

002324 

013436 

024076 

001700 

013436 

001100 

000200 

025664 

013344 

025662 

166402 

002326 

000105 

000131 

000101 

040000 


036574 

035744 

023146 


025726 

166304 

002324 

000105 

000131 

000101 

040000 


036574 

03574* 

023146 


177777 

025726 

001416 

001422 


000101 

177776 


036574 

035744 

023146 


036520 

001350 


001222 


166406 

016240 

000034 

OOOOOO 

166356 

166346 

000012 


TEST14: 


000034 

OOOOOO 

166260 

166250 

000012 


166162 5$: 


MOV 

NOV 

JSR 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

WAIT 

BIC 

BIT 

BEO 

SAVREG 

MOV 

JSR 

JSR 

RESREG 

EMT 

CLR 

JSR 

CLR 

NOV 

MOV 

MOV 

WAIT 

BIC 

BIT 

BEO 

SAVREG 

MOV 

JSR 

JSR 

RESRE6 

EMT 

MOV 

JSR 

CLR 

CLR 

DEC 

BGT 

BR 

BIC 

CLR 

MOV 

TST 

SAVREG 

MOV 

JSR 

JSR 


DP8.A+10 
FC.DPB.A+12 
#EXI T14. BYPASS 
RO.CALL.A 
#T 14.R3 

#EXIT 14,$ESCAPE 

#STACK,SP 

#128., R1 

PC.STRTMR 

#5$.aprv 

#D0RTI,3RMVEC 

BPXB 

LC,RNDC (R4) 
#SEEK.RMCS1(R4) 
#131, BPICCS 

# 101 , apices 

#ERR,RMDS(R4) 

2 $ 

#D FADP8.R2 

PC.SVRH70 

PC,CNTCLR 

17 

R5 

PC, COUNT 
aPKB 

FC,RMDC(R4) 

#SEEK.RMCS1<R4> 

# 131 , apices 
# 101 , apices 

#ERR,RMDS(R4) 

3* 

#DTADP8,R2 

PC.SVRH?0 

PC,CNTCLR 

17 

#-1 ,R5 
PC.COUNT 
TIN.DN+2 
TIM.DN+6 
R1 
1 $ 

6S 

# 101 . apices 

PS 

<SP>*. RO 
(SP)* 

#DTADP8.R2 

PC.SVRH70 

PC.CNTCLR 


SEQ 0072 


USE TRACK 0 I SECTOR 0 
STARTING CYLINDER 
GO TO EXIT14 IF ERROR 
GO EXECUTE THE COMMAND 
PARAMETER POINTER 
.•ESCAPE TO EXIT14 ON ERROR 

SETUP STACK 

REPEAT ‘"FC'-'LC'-’FC"' 128 TIMES 
INIT. THE TIMERS 

SETUP VECTOR IN CASE OF OVERFLOW 

SETUP RM80 VECTOR 

START COUNTING FROM ZERO 

MAXIMUM CYLINDER 

START A SEEK 

START THE CLOCK 

WAIT ON INTERRUPT 

STOP THE CLOCK 

:ERR=1? 

NO — BRANCH 
SAVE R0-R5 
;DPB POINTER 

;SAVE ALL THE RH/RM REGISTERS 
;G0 CLEAR CONTROLLER 
RESTORE R0-R5 


SET THE UP/DOWN SWITCH TO UP 

UP THE COUNT 

START COUNT AT ZERO 

BEGINNING CYLINDER 

START A SEEK 

START THE CLOCK 

WAIT ON INTERRUPT 

STOP THE CLOCK 

"ERR'-l? 

NO — BRANCH 
SAVE R0-R5 
DPB POINTER 

SAVE ALL THE RH/RM REGISTERS 
GO CLEAR CONTROLLER 
RESTORE R0-R5 

SET THE UP/DOWN SWITCH TO DOWN 
UPDATE THE COUNT 

FORGET ABOUT # OF SEEKS BELOW MINIMUM TIME 
F0R6ET ABOUT # OF SEEKS ABOVE MAXIMUM TIME 
DONE? 

NO— BRANCH 
YES— EXIT 
STOP THE CLOCK 
DROP THE PRIORITY 
PC OF WAIT+2 

POP THE PS FROM THE STACK 
SAVE R0-R5 
DPB POINTER 

SAVE ALL THE RH/RM REGISTERS 
GO CLEAR CONTROLLER 


I 


L 
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I 6 


SEO 0073 


013400 

366 013402 

367 013404 

368 013410 

369 013414 

374 013422 
013426 
013430 
013434 

375 013436 

376 

387 

388 


389 


104413 

104020 

004737 

004737 

012777 

004037 

001700 

004037 

001740 

000004 


013440 

013440 000240 
013442 033737 
013450 001002 
013452 000137 


013456 
01 >464 
013470 
013476 
013504 
013512 

013520 

013526 

013530 

013534 

013540 

013542 

013543 


023146 

023240 

033526 

026166 

026060 


012737 

004737 

012737 

013737 

112737 

012737 

032777 

001406 

104401 

013746 

104403 

003 

000 


015746 


RESREG 

EAT 

6$: JSR 

JSR 
AOV 
JSR 
T14 
JSR 
SP14 

EXIT14: SCOPE 


20 

PC.CNTCLR 

PC.ST.CLK 

#ISR.iRAVEC 

RO.TYPTIA 

RO.SPTYP 


.•RESTORE R0-R5 

; GO CLEAR RASS8US CONTROLLER 
; INITIALIZE THE CLOCK 
.•RESTORE RH/RA INT. VECTOR 
;G0 TYPE THE TIAES 
.•POINTER 


.-CALL SCOPE ROUTINE 


•TEST 15 AVERAGE SEEK TIAE AEASUREAENT TEST 

•THIS TEST AEASURES THE AVERAGE SEEK TIAE BY DOING ALL UNIQUE SEEKS 
•BETWEEN ’EC’ AND ’LC\ AND AEASURING THE SEEK TIAES. THE TOTAL 
•SEEK TIAE FOR ALL SEEKS IS THEN DIVIDED BY THE NUABER OF SEEKS 
•PERFORAED TO PROVIDE AN AVERAGE SEEK TIAE VALUE FOR THE RANGE OF 
•SEEKS TIAED. AAXIAUA TIAE IS 25.0 AS 

*UARNING - THIS TEST TAKES APPROXIAATELY 3.0 HOURS TO RUN 


TST15: 




NOP 


001612 

001332 

BIT 

BITS*<15*2>,TS1 



BNE 

.♦6 

015142 


JAP 

SEOP 

000015 

001116 

AOV 

#15.STSTNA 

023734 


JSR 

PC.LODPRA 

013644 

001124 

AOV 

#TEST15.SLPERR 

002322 

001220 

AGV 

RPT.STIAES 

000031 

001131 

A0V8 

#25. .SERAAX 

000015 

001240 

AOV 

#15. STESTN 

010000 

165426 

BIT 

#SW12.BSWR 



BEQ 

.♦16 

037265 


TYPE 

-ASGTST 

STESTN. -(SP) 

001240 


AOV 

TYPOS 




.BYTE 

3 



.BYTE 

0 


390 013544 

005737 

001342 



TST 

391 013550 

003002 




BGT 

394 013552 

000137 

015140 



JAP 

395 013556 

012737 

013556 

001 122 

IS: 

AOV 

396 013564 

00403 7 

025500 



JSR 

397 013570 

000402 




BR 

408 013572 

000137 

015140 



JAP 

013576 

012737 

013576 

001122 

2S: 

AOV 

013604 

112737 

000105 

036510 


AOVB 

013612 

005037 

036516 



CLR 

013616 

013737 

002324 

036520 


AOV 

013624 

012737 

015140 

001350 


AOV 

013632 

004037 

024076 



JSR 


CLKSTA 

IS 

EXIT15 

#. .SLPADR 

RO.SRCHOO 

2 % f 

EXIT15 

#., SLPADR 

#ScEK,DP8.A*2 

DP8 A+10 

FC.I/PB.A+12 

#EXIT15. BYPASS 

RO.CALL.A 


IS ;D0 THIS TEST? 

BR IF YES 

NO-GO TO THE END OF THE FROGRAA 

SET TEST 015 AND CLEAR (SERFLG) 
LOAD THE PARAETERS FOR THE TEST 
SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 
AAX ERRORS ALLOWED FOR TEST 
.-SET TEST NUABER IN APT HAIL BOX 

INHIBIT TYPING TEST NUABER ? 

BR IF YES 
TYPE 'TEST' 

.-SAVE STESTN FOR TYPEOUT 
;G0 TYPE— OCTAL ASCII 
.•TYPE 3 DIGIT(S) 

; SUPPRESS LEADING ZEROS 

KW11-P CLOCK? 

YES— START TEST 

NO— JUAP TO EXITS 5 

SETUP THE LOOP ADDRESS 

DO A AASS8US INIT. AND RE CAL 

NO ERROR RETURN 

ERROR RETURN— SCOPE LOOP CALL 

ERROR LOOP ADDRESS 

SEEK=COAAAND 

USE TRACK 0 t SECTOR 0 

STARTING CYLINDER 

GO TO EXIT15 IF ERROR 

GO EXECUTE THE COAHAND 



J 6 



SEQ 0074 


.ESCAPE TO EXIT15 ON ERROR 

SETUP STACK 

CLEAR THE SEEK TIMER 

M • • il ft 

ft M ft M 

ft II tf ft 

CLEAR THE SEEK COUNTER 

•t ft it M 

SET SEEK LENGTH TO ZERO 
INCREMENT THE SEEK LENGTH 
CLEAR THE STARTING INCREMENT 
FINISHED WITH THIS PASS ? 

IF NE. NO 

:R OF SEEKS. IF SW12=1 


SEE IF SWITCH 12 SET 
IF EO, NO 
•SEEK SIZE*' 

MOVE IT TO THE STACK 
CONVERT IT 
TYPE IT 

•NUMBER OF SEEKS*' 
SEEK COUNT POINTER 
CONVERT TO ASCII 
TYPE IT 
CONTINUE 


SETUP STARTING ADDRESS 
ADD THE STARTING ADDRESS 
COPY THE STARTIN6 ADDRESS 
ENDING CYLINDER 

SEEK IF ENDING CYLINDER TOO LARGE 
IF LOS. NO 

FINISHED WITH THIS PASS 


RE-INI T THE CLOCK 
RESTORE THE RH VECTOR 


;SEEKsCOMMAND 
;USE TRACK 0 t SECTOR 0 
.•STARTING CYLINDER 
;GO TO EXIT15 If ERROR 
;60 EXECUTE THE COMMAND 



.STOP THE CLOCK 

.•SETUP CLOCK VECTOR IN CASE Of OVERFLOW 
.•CHANGE RM80 VECTOR 


START COUNT AT ZERO 
LOAD CYLINDER ADDRESS 
START A SEEK 
START THE CLOCK 
WAIT ON INTERRUPT 
STOP CLOCK 


K 6 
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465 

014164 

032764 

C40000 

000012 


BIT 

#8IT14,RMDS(R4) 

ERR=1? 

466 

014172 

001425 




BEQ 

8$ 

NO— BRANCH 

467 

014174 

10441? 




SAVREG 

#DTADP8,R2 

PC.SVRH70 

SAVE R0-R5 

014176 

012702 

036574 



MOV 

DPB POINTER 


014202 

004737 

035744 



JSR 

SAVE ALL THF RH/RM REGISTERS 


014206 

004737 

023146 



J SR 

PC.CNTCLR 

GO CLEAR CONTROLLER 


014212 

104413 




RESREG 

17 

RESTORE R0-R5 

468 

014214 

014216 

104017 




EMT 

REPORT THE ERROR 

469 

032737 

040000 

036702 


BIT 

#SKJ .RM.REG+RMER2 ;SEE IF SKI SET 

470 

014224 

001410 




BEQ 

8$ 

IF EQ. NO 

471 

014226 

004737 

023240 



JSR 

PC.ST.CLK 

RE-INI T THE CLOCK 

472 

014232 

012777 

033526 

015130 


MOV 

fISR.SRHVEC 

RESTORE THE RH VECTOR 

473 

014240 

004037 

024710 



JSR 

R0,CALL.R 

ISSUE A RE CAL 

474 

475 

476 

014244 

000703 




BR 

5$ 

TRY AGAIN 

014246 

067737 

165266 

001472 

8$: 

ADD 

BPKC.SKTIM 

ADD THE COUNTER VALUE 

479 

014254 

005537 

001474 



ADC 

SKTIM+2 

ADD ANY CARRY 


014260 

005537 

001476 



ADC 

SKTIM+4 

ADD ANY CARRY 


014264 

005537 

001500 



ADC 

SKTIM+6 

ADD ANY CARRY 

480 

014270 

062737 

000001 

001502 


ADD 

#1,SKCNT 

COUNT THE SEEK 

481 

482 

483 

014276 

005537 

001504 



ADC 

SKC NT+2 

1 • « I • I 

014302 

013737 

002350 

002346 


MOV 

NC2.NC1 

GET NEW STARTING CYLINDER 

484 

014310 

063737 

001506 

002350 


ADD 

SKSIZ.NC2 

NEW ENDING CYLINDER 

485 

014316 

023737 

002350 

002326 


CMP 

NC2.LC 

FINISHED IN THIS DIRECTION ? 

486 

014324 

101700 




BLOS 

7$ 

IF LOS, NO 

487 

014326 

013737 

002326 

002350 


MOV 

LC.NC2 

SETUP FOR REVERSE SEEK 

488 

014334 

163737 

001510 

002350 


SUB 

CYINC.NC2 

ADJUST ADDRESS 

489 

014342 

013737 

002350 

002346 


MOV 

NC2.NC1 

COPY ADDRESS 

490 

491 

492 

014350 

163737 

001506 

002346 


SUB 

SKSIZ.NC1 

NEW ENDING ADDRESS 

014356 

004737 

023240 


9$: 

JSR 

PC.ST.CLK 

RE-INI T THE CLOCK 

493 

494 

495 

014362 

012777 

033526 

015000 


MOV 

#ISR. BRMVEC 

RESTORE THE RH VECTOR 

014370 

014370 

112737 

000105 

036510 

10$: 

M0V8 

#SEEK,DPB.A*2 

SEEK-COMMAND 


496 

014376 

005037 

036516 



CLR 

DP0.A+1O 

USE TRACK 0 l SECTOR 0 

497 

014402 

013737 

002350 

036520 


MOV 

NC2.DP8.A+12 

STARTING CYLINDER 

500 

014410 

012737 

015140 

001350 


MOV 

#EXIT15, BYPASS 

GO TO EXIT15 IF ERROR 

501 

502 

503 

014416 

004037 

024076 



JSR 

RO.CALL.A 

GO EXECUTE THE COMMAND 

014422 

005077 

165106 


11$: 

CLR 

BPKCS 

STOP THE CLOCK 

504 

014426 

012777 

015102 

165074 


MOV 

#18$.BPKV 

SETUP CLOCK VECTOR IN CASE OF OVERFLOW 

505 

506 

507 

014434 

012777 

025662 

014726 


MOV 

#DORT I .BRMVEC 

CHANGE RM80 VECTOR 

014442 

005077 

165070 


12$: 

CLR 

BPK8 

START COUNT AT ZERO 

508 

014446 

013764 

002346 

000034 


MOV 

NC1,RMDC(R4> 

LOAD CYLINDER ADDRESS 

509 

014454 

012764 

000105 

000000 


MOV 

#SEEK,RMCS1(R4) 

START A SEEK 

510 

014462 

012777 

000131 

165044 


MOV 

#131, BPKCS 

START THE CLOCK 

511 

014470 

000001 




WAIT 


WAIT ON INTERRUPT 

512 

014472 

042777 

000101 

165034 


B1C 

#101. BPKCS 

STOP CLOCK 

513 

014.00 

032764 

040000 

000012 


BIT 

#8IT14,RMDS<R4> 

ERR-1? 

514 

014506 

001425 



BEQ 

13$ 

NO— BRANCH 

515 

014510 

104412 




SAVREG 


SAVE R0-R5 


014512 

012702 

036574 

035744 



MOV 

#DTADPB,R2 

DPB POINTER 


014516 

004737 



JSR 

PC.SVRH70 

SAVE ALL THE RH/RM REGISTERS 


014522 

004737 

023146 



JSR 

PC.CNTCLR 

GO CLEAR CONTROLLER 
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TEST 





014526 

104415 




RESREG 


RESTORE R0-R5 


516 014530 

104017 




EMT 

17 i 

.REPORT THE ERROR 


517 014532 

032737 

040000 

036702 


BIT 

ffSKI .RM.REG+RMER< 

;SEE IF SKI SET 


518 014540 

001410 




BEQ 

13$ ; 

IF EO. NO 

RE-INI T THE CLOCK 


519 014542 

004737 

023240 



JSR 

PC. ST. CLK 


520 014546 

012777 

033526 

014614 


MOV 

#ISR.3RMVEC 

RESTORE THE m VECTOR 


521 014554 

004037 

024710 



JSR 

RO.CALL.R 

ioi 

ISSUE A RECAL 


5 22 014560 

523 

524 014562 

000703 




BR 

TRY AGAIN 


067737 

lu4752 

001472 

13$: 

ADD 

3PKC.SKTIM 

ADD THE COUNTER VALUE 


527 014570 

005537 

n 01474 



ADC 

SKTIM+2 

ADD ANY CARRY 


014574 

005537 

,01476 



ADC 

SKTIM+4 

ADD ANY CARRY 


014600 

005537 

001500 



ADC 

SKTIM*6 

ADD ANY CARRY 


528 014604 

062737 

000001 

001502 


ADD 

/T1.SKCN7 

COUNT THE SEEK 


529 014612 

530 

531 0K616 

005537 

001504 



ADC 

SKCNT+2 

ft it 1 1 


013737 

002346 

002350 


MOV 

NC1.NC2 

COPY ENDING ADDRESS 


532 014c24 

163737 

001506 

002346 


SUB 

SKSIZ.NC1 

NEW ENDING ADDRESS 


533 014632 

005737 

002346 



TST 

NCI 

SEE IF THE NEW CYL IS NEGATIVE 


534 014636 

100404 




BMI 

14$ 

IF MI. YES - FINISHED 


535 014640 

023737 

002346 

002324 


CMP 

NC1.FC 

FINISHED ? 


536 014646 

103275 




BHIS 

12$ 

IF HIS. NO 


537 014650 

013746 

002326 


14$: 

MOV 

LC.-(SP) 

PUT THE ENDING CYLINDER ON THE STACK 


538 014654 

163716 

002324 



SUB 

FC.(SP) 

FIND THE DIFFERENCE 


539 014660 

023726 

001506 



CMP 

SKSIZ, (SP)+ 

SEE IF TEST FINISHED 


540 014664 

103004 




BHIS 

15$ 

IF HIS. YES 



541 014666 

005237 

001510 



INC 

CYINC 

INCREMENT THE CYLINDER OFFSET 



542 01467? 

543 

544 014676 

000137 

013714 



JMP 

2$ 

CONTINUE 



004737 

023146 


15$: 

JSR 

PC.CNTCLR 

GO CLEAR MASS8US CONTROLLER 



545 014702 

004737 

023240 



JSR 

PC. ST. CLK 

RE-INI T THE CLOCK 



546 014706 

547 

548 014714 

012777 

033526 

014454 


MOV 

#ISR,3RMVEC 

RESTORE THE RH VECTOR 



104412 




SAVREG 


SAVE R0-R5 



583 014716 

104401 

037634 



TYPE 

.MEASUR 

TYPE 'AVERAGE SEEK TIME MEASUREMENT' 



014722 

013703 

001472 



MOV 

SKTIM.R3 

LOAD THE DIVIDEND 



014726 

013702 

001474 



MOV 

SKTIM+2.R2 

1 1 t • 1 1 



014732 

013701 

001476 



MOV 

SKTIM+4.R1 




014736 

013700 

001500 



MOV 

SKTIM+6.R0 

It It tl 



014742 

013705 

001502 



MOV 

SKCNT.R5 

LOAD THE DIVISOR 



014746 

013704 

001504 



MOV 

SKCNT+2.R4 

•• tl It 



014752 

004737 

022652 



JSR 

PC.M.DPID 

FIND THE AVERAGE 



014756 

010337 

001472 



MOV 

R3.SKTIM 

LOAD THE QUOTENT FOR DISPLAY 



014762 

010237 

001474 



MOV 

R2.SKTIM+2 

• I tl ll •• •• 



014766 

104401 

001231 



TYPE 

,$CRLF 

CR-LF 



014772 

104401 

037710 



TYPE 

.MSGAVG 

‘ 'AVG=' ' 



014776 

012746 

00* 472 



MOV 

#SKTIM,-(SP) 

AVERAGE SEEK TIME POINTER 



015002 

004737 

022246 



JSP 

PC.SDB2D 

CONVERT TO ASCII 



015006 

004737 

022442 



JSR 

PC.SSUPRS 

TYPE IT 



015012 

104401 

037716 



TYPE 

.MSGOUS 

TYPE “0 US" 



015016 

104401 

037160 



TYPE 

.COMMA 

TYPE ". " 



015022 

012746 

001502 



MOV 

#SKCNT,-(SP) 

SEEK COUNT POINTER 



015026 

004737 

022246 



JSR 

PC.$DB2D 

CONVERT TO ASCII 


015032 

004737 

022442 



JSR 

PC.SSUPRS 

TYPE IT 

TYPE SEEKS TIMED" 


015036 

104401 

040021 



TYPE 

.MSGSEK 


015042 

104413 




RESREG 


RESTORE R0-R5 


015044 

000435 




BR 

EXIT15 

BR TO EXIT15 



m 6 


HNGAO 

T15 
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584 

585 015046 
5°6 015062 

587 

588 

589 015102 

590 015106 

591 015112 

592 015114 

593 015116 
015120 
015124 
015130 
015134 

594 015136 

595 015140 

596 
601 


200 

054 


0C5077 

0C5"37 

012600 

005726 

104412 

012702 

004737 

004737 

104413 

104020 

000004 


123 

040 


164426 

177776 


036574 

035744 

023146 


105 

116 


16S: .ASCiZ 

17$: .ASCJZ 

.EVEN 

18$: CLR 

CLR 
MOV 
TST 

SAVREG 

MOV 

JSR 

JSR 

RESREG 

EMT 

EXIT15: SCOPE 


<CRLF>/SEEK SIZE*/ 
/, NO. OF SEEKS=/ 


9PKCS 

PS 

(SP)+.R0 
( SP) + 

4fOTAOPa.R2 

PC.SVRH70 

PC.CNTCLR 

20 


STOP THE CLOCK 
DROP THE PRIORITY 
PC OF WAIT+2 

POP THE PS FROM THE STACK 
SAVE R0-R5 
DP8 POINTER 

SAVE ALL THE RH/RM REGISTERS 
GO CLEAR CONTROLLER 
RESTORE R0-R5 
CLOCK OVERFLOWED 
CALL SCOPE ROUTINE 


SEQ 0077 
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N 6 


SEO 0078 


1 


.S8TTL END OF PASS ROUTINE 


015142 
015142 
0151 46 

015166 

015166 

015172 

015206 

015206 

015212 

015214 

015215 

015216 

015222 

015224 

015230 

015256 

015256 

015262 

015264 

015270 

015274 

015300 

015304 

015312 

015314 

015316 

015320 

015322 

015324 

015326 

015332 

015352 

015352 

015356 

015362 

015364 

015366 

015370 

015372 

015374 

015376 

015376 

015400 

015402 


104401 

000407 


104401 

000405 


013746 

104403 

002 

000 

005737 

001420 

104401 

000412 


013746 

104402 

005037 

005037 

005037 

005237 

042737 

005327 

000010 

003027 

012737 

000010 

015314 

104401 

000407 


104401 

013700 

001405 

000005 

004710 

000240 

000240 

000240 

000137 

01540£ 


015150 

015174 

001352 

001126 

015232 

001126 

001126 

001116 

001220 

001242 

100000 


015334 


015402 

000042 


377 


•INCREMENT THE PASS NUMBER <$PASS) 

•INDICATE END-OF-PROGRAM AFTER 8. PASSES THRU THE PROGRAM 
•IF THERES A MONITOR GO TO IT 
•IF THERE ISN’T JUMP TO RTURN 


$EOP: 


;;65S: 

64$: 


;; 6 7 $: 
66 $: 


001242 


;:69$: 

68 $: 


1 $: 

$E0PC7 : 
$ENDCT: 


; ;65$: 
64$: 

S3ET42: 

$ENDAD : 

$D0AGN: 

$RTNAD : 
000 $ENULL: 


TYPE 

BR 

.ASCIZ 

TYPE 

BR 

.ASCIZ 

MOV 

TYPOS 

.BYTE 

.BYTE 

TST 

BEQ 

TYPE 

BR 

.ASCIZ 

MOV 

TYPOC 

CLR 

CLR 

CLR 

INC 

BIC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

$EOPCT 

TYPE 

BR 

.ASCIZ 

TYPE 

MOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

JMP 

.WORD 

.BYTE 

.EVEN 


,65$ ;;TYPE ASCIZ STRING 
64$ ;;GET OVER THE ASCIZ 
<CRIFXLF>/END OF PASS/ 


,67$ 

66 $ 

/ ON DRIVE/ 

CHKDRV.-(SP) 

2 

0 

$ERTTL 

1 $ 

,69$ 

68 $ 


ERRORS DETECTED*/ 


;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;;SAVE CHKDRV FOR TYPEOUT 
; ; GO TYPE— OCTAL ASCII 
; ; TYPE 2 DI6IT<S> 

;; SUPPRESS LEADING ZEROS 
;ANY ERRORS DETECTED ? 

;BR IF NO 

;;TYPE ASCIZ STRING 
; ; GET OVER THE ASCIZ 


$ERTTL,-(SP) 

$ERTTL 

$TSTNM 

$TIMES 

$PASS 

#1 00000, $PASS 
<PC>* 

8 . 

$DQAGN 

<PC)+,a<PCH 

8 . 


; ; SAVE $ERTTL FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 

.•CLEAR ERROR TOTAL 

;;ZERO THE TEST NUMBER 

; ; ZERO THE NUMBER OF ITERATIONS 

;; INCREMENT THE PASS NUMBER 

-DON'T ALLOW A NEG. NUMBER 

;;L00P? 

• * YES 

••RESTORE COUNTER 


,65$ ;;T YPE ASCIZ STRING 
64$ ;;GET OVER THE ASCIZ 
<CRLF>/END OF TEST/<CRLF> 


,$ENULL 

»V42,R0 

SDOAGN 

PC.(RO) 


a(pc)+ 

RTURN 

- 1 .- 1.0 


.-TYPE NULL CHARACTER 
;;GET MONITOR ADDRESS 
; ;BRANCH IF NO MONITOR 
;; CLEAR THE WORLD 
;;G0 TO MONITOR 
; ; SAVE ROOM 
;;FOR 
;,*ACT11 

; .-RETURN 

.-.-NULL CHARACTER STRING 
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2 

3 015406 

012706 

001100 

RTURN: MOV 

#STACK,SP 

4 015412 

004737 

020134 

JSR 

PC.STKINT 

5 015416 

004737 

023240 

JSR 

PC, ST .CLK 
RSTART 

6 015422 

000137 

005102 

JMP 



7 


SEO 0079 


RESTORE STACK 

MAKE SURE KEYBOARD INTERRUPT AND 
INITIALIZE THE CLOCK 
RETURN TO RESTART 



SEQ 0080 
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.S8TTL APT COMMUNICATIONS ROUTINE 


015426 
015434 
015442 
015444 
015452 
015452 
015454 
015456 
015462 
015464 
015472 
015474 
015502 
015504 
015510 
015516 
015522 
015524 
015530 
015532 
015534 
015540 
015542 
015546 
015554 
015556 
015564 
015572 
015576 
015602 
015604 
015604 
015610 
015612 
015616 
015620 
015624 
01 f 626 
015634 
015642 
015646 
015652 
015656 
015662 
015664 
015666 
01 5670 
015671 
015672 


112737 

112737 

000403 

112737 

010046 

010146 

105737 

001450 

122737 

001031 

132737 

001425 

01760O 

062766 

005737 

001375 

010037 

105720 

001376 

163700 

006200 

010037 

012737 

000413 

017637 

062766 

013746 

004737 

000000 

105737 

001416 

005737 

001413 

005737 

001375 

017637 

062766 

005237 

105037 

105037 

105037 

012601 

012600 

000207 

000 

000 

000 

000200 

000001 

000100 

000040 


000001 

000001 


015672 

015670 


000001 015672 


015670 

000001 001254 

000100 001255 


000004 

000002 

001234 

001250 


001250 

001252 

000004 

000004 

000002 

177776 

017116 


015672 

001254 

001234 

000004 

000002 

001234 

015672 

015671 

015670 


000004 


001234 

015602 

000004 


001236 

000004 


iATYl : 

Mova 

#1 .$FFLG 

SATV3: 

MO V8 

#1 .SMFLG 


BR 

SATYC 

SATY4: 

MOVB 

#1 .SFFLG 

SATYC: 


MOV 

RO.-(SP) 


MOV 

RI.-(SP) 


TSTB 

SMFLG 


8E0 

5$ 


CMP8 

#APTENV.$ENV 


BNE 

3$ 


BITB 

#APTSPOOL,$ENVM 


BEO 

3$ 


MOV 

84 (SP) ,R0 


ADD 

#2.4<SP> 

1$: 

TST 

SMSGTYPE 


BNE 

IS 


MOV 

RO.SMSGAD 

2$: 

TSTB 

(R0) + 


BNE 

2$ 


SUB 

SMSGAD.RO 


ASR 

RO 


MOV 

RO.SMSGLGT 


MOV 

#4,$NSGTYPE 


BR 

5$ 

3$: 

MOV 

84(SP) .4$ 


ADD 

#2.4<SP> 


MOV 

1 7^776. -<SP) 


JSR 

PC.STVPE 

4$: 

.WORD 

0 

5$: 

10$: 

TSTB 

SFFLG 


BEO 

12S 


TST 

SENV 


BEO 

12$ 

11$: 

TST 

$MS6TVPE 


BNE 

11$ 


MOV 

§4(SP) .SFATAL 


ADD 

#2.4 (SP) 


INC 

SMSGTYPE 

12$: 

CLRB 

SFFLG 


CLRB 

$LFLG 


CLRB 

SMFLG 


MOV 

(SP)+. R1 


MOV 

(SPH.RO 


RTS 

PC 

SMFLG: 

.BYTE 

a 

$LFLG: 

.BYTE 

0 

$FFLG: 

.BYTE 

0 


.EVEN 
APTSIZE = 200 
APTENV = 001 
APT SPOOL = 100 
APTCSUP = 040 


;;T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 

;;T0 ONLY REPORT FATAL ERROR 

;;PU$H RO ON STACK 
;;PUSH R1 ON STACK 
;; SHOULD TYPE A MESSAGE? 

■ * I F NOT * fi ft 
••OPERATING UNDER APT? 

• * IF NOT* 8R 
'••SHOULD 'SPOOL MESSAGES? 

; ; I F NOT: BR 
;;GET MESSAGE ADDR. 

;;BUMP RETURN ADDR. 

; ; SEE IF DONE W/ LAST XMISSION? 
;;IF NOT: WAIT 
;;PUT ADDR IN MAILBOX 
;;FIND END OF MESSAGE 

;;SUB START OF MESSAGE 
.-.-GET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 

;;PUT MSG ADDR IN JSR LINKAGE 
;;BUNP RETURN ADDRESS 
.-.-PUSH 177776 ON STACK 
;;CALL TYPE MACRO 


.-SHOULD REPORT FATAL ERROR? 
;IF NOT: BR 
.•RUNNING UNDER APT? 

*IF NOT* BR 
•FINISHED LAST MESSAGE? 

;IF NOT: WAIT 
;GEZ ERROR # 

;:BUHP RETURN ADDR. 

; TELL APT TO TAKE ERROR 
.•CLEAR FATAL FLAG 
.•CLEAR LOG FLAG 
; CLEAR MESSAGE FLAG 
.POP STACK INTO R1 
.-POP STACK INTO RO 
.•RETURN 
;MESSG. FLAG 
.-LOG FLAG 
.•FATAL FLAG 
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.S0TTL ERROR HANDLER ROUTINE 


SEO 0081 


015674 

015700 

015702 

015710 

015712 

015716 

015720 

015726 

015734 

015740 

015742 

015750 

015756 

015760 

015764 

015770 

015774 

016002 

016010 

016016 

016020 

016026 

016030 

016034 

016036 

016044 

016046 

016052 

016060 

016066 

016070 

016076 

016102 

016104 

016110 

016116 

016120 

016126 

016130 

016136 

016144 

016152 


105037 

104407 

032777 

001411 

005737 

001406 

013737 

013737 

105237 

001775 

013777 

032777 

001402 

104401 

005237 

011637 

162737 

117737 

032777 

001060 

122737 

001454 

105737 

001047 

022737 

001445 

013746 

012737 

013737 

000408 

012737 

012716 

000002 

012637 

022737 

001420 

032737 

001414 

042737 

113737 

112737 

000402 


016334 

000400 163244 


001326 

001554 

001556 

001117 

001116 

002000 

001224 

001126 

001132 

000002 

163124 

001000 


001164 

001166 


163206 

163176 


001132 

001130 

163136 


000177 001130 
016334 

177777 016332 


000004 

016070 

177766 

177777 

016104 

000004 


000001 

001130 

000177 


•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND GO TO TYPERR ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•SW15=1 HALT ON ERROR 

*SW13=1 INHIBIT ERROR TVPEOUTS 


000004 

016332 

016332 


177777 016332 
000001 016332 


177766 

016334 

001130 


;*SW13=1 

;*SW1 0=1 

.-•SW09=1 

.-•CALL 

;* ERROR 

$FRROR: CLR8 
CKSWR 
BIT 
BEO 
TST 
BEO 
MOV 
MOV 

7$: INCB 

BEO 
MOV 
BIT 
BEO 
TYPE 

1$: INC 

MOV 
SUB 
M0V8 
BIT 
BNE 
CMP8 
BEO 
TSTB 
BNE 
CMP 
BEO 
MOV 
MOV 
MOV 
BR 

1000$: MOV 
MOV 
RTI 

1001$: MOV 

1002$: CMP 
BEO 
BIT 
BEO 
BIC 
M0V8 
M0V8 
BR 


BELL ON ERROR 
LOOP ON ERROR 


; ;ERROR=EMT AND N-ERROR ITEM NUMBER 


I8SAVE 


#SW08,aSUR 

7$ 

LPTAVL 

7$ 

LPS,$TPS 

LP8,$TPB 

$ERFLG 

7$ 

STSTNM.aDI SPLAY 
«BIT10,aSUR 
1 $ 

,$8ELL 

$ERTTl 

<SP),$ERRPC 

#2,$ERRPC 

B$£RAPC,$ITEMB 

#8IT09,8SWA 

1004$ 

#177.$ITEMB 

1004i 

IBSAVE 

1003$ 

#-1 . CPSAVE 

100U 

ERRVEC.-CSP) 

#1 000$, ERRVEC 
177766,CPSAVE 
1001 $ 

#-1, CPSAVE 
#n6l$,(SP) 


;; CLEAR THE ITEM BYTE SAVE LOCATION 
;;TEST FOR CHANGE IN SOFT-SWR 
;SEND ERROR MESSAGE TO TTY? 

; YES— BRANCH 

;IS THERE A LINE PRINTER AVAILABLE? 

; NO— BRANCH 

; YES— SETUP STATUS 

.‘AND BUFFER REG.'S FOR LINE PRINTER 

;;SET THE ERROR FLAG 

; .‘DON'T LET THE FLAG GO TO ZERO 

.-.‘DISPLAY TEST NUMBER AND ERROR FLAG 

;;BELL ON ERROR? 

;;N0 - SKIP 
.-.RING BELL 

.'.'COUNT THE NUMBER OF ERRORS 
;;GET ADDRESS OF ERROR INSTRUCTION 

; .‘STRIP AND SAVE THE ERROR ITEM CODE 

;,*SEE IF LOOP ON ERROR IS SET 

.‘.'BRANCH AROUND ROUTINE IF SO 

.‘.‘SEE IF THIS IS THE POWER FAIL CALL 

;; BRANCH AROUND ROUTINE IF IT IS 

;;SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 

.-.‘BRANCH IF SO 

;;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
* ‘BRANCH IF SO 

•‘SAVE CONTENTS OF ERROR VECTOR 

;; SETUP 'TRAP* RETURN ADDRESS 

; .‘MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

;;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
;; SETUP RETURN ADDRESS 


<SP) +.ERRVEC ;; RESTORE CONTENTS OF ERROR VECTOR 


#-1. CPSAVE 
1004$ 

ABI TOO. CPSAVE 
1004$ 

#81 TOO, 177766 
$1 TENS, IBSAVE 
#177.$ITEMB 
1004i 


SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 

BRANCH IF OK 

CLEAR THE BIT FOUND SET 

MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 

SET $ITEMB TO SPECIAL POWER FAIL POINTER 

BRANCH OVER IBSAVE CLEARING 
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SEO 0082 


;; CLEAR I8SAVE SO 2ND TINE THROUGH EXITS 

; ;SKIP TYPEOUT IF SET 
.-.'SKIP TYPEOUT S 
; ; GO TO USER ERROR ROUTINE 


RUNNING 1.4 APT NODE 

NO, SKIP APT ERROR REPORT 

SET I TEN NUNBER AS ERROR NUNBER 

REPORT FATAL ERROR TO APT 


;APT ERROR LOOP 

;SEE IF IBSAVE IS LOADED 

.'BRANCH IF NOT - NO HALT ON PWR NON BIT ERROR 
.-HALT ON ERROR 
.'SKIP IF CONTINUE 
.•HALT ON ERROR! 

.'TEST FOR CHANGE IN SOFT-SWR 

;SEE IF ITEN BYTE SAVE LOCATION HAS AN ERROR CALL 
.-BRANCH BACK TO CALL ORIGINAL ERROR 
.'LOOP ON ERROR SWITCH SET? 

;BR IF NO 

.'FUDGE RETURN FOP LOOPING 
; CHECK FOR AN ESCAPE ADDRESS 
*BR IF NONE 

'-FUDGE RETURN ADDRESS FOR ESCAPE 

; ACT-11 AUTO-ACCEPT? 

.'BRANCH IF NO 
.'YES 

SET STATUS AND 8UFFER REG.'S 
FOR TTY 

RETURN FROM ERROR CALL 

.'LOCATION TO SAVE CPU ERROR REG CONTENTS 

.'LOCATION TO SAVE ITEM BYTE 



SEO 0083 
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F 7 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
27 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


53 

54 

55 

56 

57 

58 


016336 

016344 

016346 

016352 

016356 

016362 

016366 

016372 

016376 

016402 

016406 

016412 

016414 

016416 

016424 

016430 

016432 

016434 

016436 

016440 

016442 

016444 

016446 

016452 

016456 

016462 

016464 

016470 

016474 

016476 

016500 

016504 

016506 

016512 

016514 

016516 

016522 

016524 

016530 

016536 

016536 

016542 

016544 

016546 

016550 

016552 


113737 

104412 

162700 

010037 

010137 

010237 

010337 

010437 

010537 

113700 

122700 

001007 

005001 

013737 

012700 

000412 

010001 

005300 

106300 

106300 

106300 

103002 

062700 

062700 

012037 

001451 

004737 

104401 

104401 

000000 

162701 

100440 

013701 

106301 

006301 

012702 

005003 

104401 

000402 


012237 

006301 

103013 

005103 

001002 

104401 


. SBTTL TYPERR - TYPE ERROR ROUTINE 

THIS ROUTINE USES THE "ITEM CONTROL BYTE ’ (SITEMB) TO DETERMINE 
WHICH ERROR IS TO BE REPORTED, IT THEN OBTAINS, F ROM THE "ERROR 
TABLE" (JERRTB) , AND REPORTS THE APPROPIATE INFORMATION 
CONCERNING THE ERROR. 

CALL 


THE TEST NUMBER 




• 

• 

0 

JSR 

RETURN 

PC. TYPERR 

001116 

001212 

TYPERR: 

MOVB 

SAVREG 

STSTNM.STMPO 

#4.R0 ; 

000004 



SUB 

001176 



MOV 

RO.SREGO 

001200 



MOV 

R1.SREG1 

001202 



MOV 

R2.SREG2 

00120* 



MOV 

R3.SREG3 

001206 



MOV 

R4.SREG* 

001210 



MOV 

R5.SREG5 

001130 



MOVB 

SITEMB.RO 

# 177 , r6 

000177 



CMPB 



BNE 

is 




CLR 

R1 

001240 

017114 


MOV 

STESfN.PFTSTN ; 

016754 



MOV 

0PFECH.RO ; 



BR 

3S 



1$: 

MOV 

R0.R1 




DEC 

RO 




ASL8 

RO 




AS LB 

RO 




ASL8 

RO 




BCC 

2* L 

#1 TEM41 -SERRTB.RO 

000240 



ADD 

002000 


2$: 

ADD 

f SERRTB.RO 
<R0)*.4S 

016476 


3$: 

MOV 



BEQ 

9$ 

023C30 



JSR 

PC.INCEC ; 


IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 


4$: 


TYPE 

.WORD 


000041 

SUB 

041.R1 

BMI 

m 

001356 

MOV 

SVSTAT.R1 

ASLB 

R1 


ASL 

R1 

001746 

MOV 

0STATBL.R2 


CLR 

R3 

016532 

TYPE 

.65$ 

BR 

64S 


;65$: .ASCIZ / (/ 


016560 

5$: MOV 

<R2>*,7$ 


ASL 

R1 


BCC 

8$ 


COM 

R3 


BNE 

6$ 

001231 

TYPE 

.SCRLF 


IS ERROR > 37? 

: YES— FORM OFFSET 
FORM ADDRESS 

GET ERROR MESSAGE (EM) POINTER 
BRANCH IF THERE ISN'T ONE 
INCREMENT ERROR COUNT 
"CARRIAGE RETURN - LINE FEED 

•W POINTER GOES HERE 
SPECIAL ERROR ITEM NUMBER? 

NO— BRANCH 

GET STATUS/ERROR INDICATOR 
STRIP ’T>ONE r ’ BIT (BIT07) 

STRIP ’tRROR" BIT (8IT15) 

1ST ADDRESS ON STATUS MESSAGE POINTERS 
CARRIAGE RETURN-LINE FEED SWITCH 
.-TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 


MESSAGE POINTER 
TYPE THIS MESSAGE? 

NO— BRANCH 

YES— TYPE A "CR" ft ’IF"? 

NO— BRANCH 

YES 
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typerr 

- TYPE ERROR ROUTINE 






59 

016556 

104401 



6$: 

TYPE 



60 

016560 

000000 

005701 



7$: 

.WORD 

0 

MESSAGE WINTER GOES HERE 

61 

Cl 6562 




TST 

R1 

MORE TO TYPE? 

62 

016564 

001403 




BEO 

8$ 

NO— BRANCH 

63 

016566 

104401 

040053 



TYPE 

.8LNKS2 

it 

TYPE 2 BLANKS 

64 

016572 

000761 




BR 

LOOP 

65 

016574 

001360 



8$: 

8NE 

5$ 

BRANCH ■' NOT FINISHED 

66 

016576 

104401 

016604 



TYPE 

.67$ 

66$ 

;TYPc ASCIZ STRING 

016602 

000401 



BR 

;GcT OVER THE ASCIZ 




:;6 7$: 

.ASCIZ 

/)/ 



016606 




66$: 


<R0)+.10$ 


67 

016606 

012037 

016622 


9$: 

MOV 

PICK UP DATA HEADER (DH) P0IN1ER 

68 

016612 

001404 



BEO 

11$ 

BRANCH IF NONE 

69 

016614 

104401 

001231 



TYPE 

,$CRLF 

CARRIAGE RETURN-LINE FEED 

70 

016620 

104401 




TYPE 


’DH" POINTER GOES HERE 

71 

016622 

000000 



10$: 

.WORD 

0 

72 

016624 

012001 



11$: 

MOV 

(R0I+.R1 

PICKUP DATA TABLE <DT) POINTER 

73 

016626 

001450 




BEO 

20$ 

BRANCH IF NONE 

74 

016630 

005005 




CLR 

R5 

SET INDENT SWITCH 

75 

016632 

012000 




MOV 

(ROH.RO 

DATA FORMAT (DF) POINTER 

76 

016634 

012002 




MOV 

(R0)+,R2 

NUMBER OF DH'S TO TYPE 

77 

016636 

001441 




BEO 

19$ 

BRANCH IF DH NUMBER IS 0 

78 

016640 

005105 




COM 

R5 

NO INDENT 

79 

016642 

104401 

001231 



TYPE 

,$CRLF 

CARRIAGE RETURN-LINE FEED 

80 

016646 

112003 



12$: 

M0V8 

(R0J+.R3 

NUMBER OF DATA WORDS TO TYPE 

81 

016650 

112004 




M0V8 

(R0H.R4 

AND HOW TO TYPE THEM 

82 

016652 

006004 



13$: 

ROR 

R4 

OCTAL OR DECIMAL? 

83 

016654 

103403 




BCS 

14$ 

DECIMAL— BRANCH 

84 

016656 

013146 




MOV 

a<Rm,-(SP> 

.-SAVE a(R1>* FOR TYPEOUT 

016660 

104402 




TYPOC 


;G0 TYPE— OCTAL ASCII (ALL DIGITS) 

85 

016662 

000402 




BR 

15$ 


86 

016664 

016664 

013146 



14$: 

MOV 

a<Ri)*,-(SP> 

;3AVE a(R1)+ FOR TYPEOUT 


016666 

104405 




TYPDS 


;60 TYPE— DECIMAL ASCII WITH SIGN 

87 

016670 

005303 



15$: 

DEC 

R3 

MORE NUMBERS TO TYPE? 

88 

0166/2 

001403 




BEQ 

16$ 

NO— BRANCH 

89 

016674 

104401 

040053 



TYPE 

-BLNKS2 

TYPE 2 BLANKS 

90 

016700 

000764 




BR 

13 $ 

LOOP 

91 

016702 

005302 



16$: 

DEC 

R2 

MORE DH'S? 

92 

016704 

003421 




BLE 

20$ 

NO— BRANCH 

93 

016706 

104401 

001231 



TYPE 

,$CRLF 

YES— START A NEW LINE 

94 

016712 

005105 




COM 

R5 

INDENT? 

95 

016714 

001002 




BNE 

17$ 

NO— BRANCH 

96 

016716 

104401 

040053 



TYPE 

,BLNKS2 

TYPE 2 BLANKS 

97 

016722 

012037 

016730 


17$: 

MOV 

(R0)+.18$ 

GET NEXT DH 

98 

016726 

104401 




TYPE 


AND TYPE IT 

99 

016730 

000000 



18$: 

.WORD 

0 

DH POINTER GOES HERE 

100 

016732 

104401 

001231 



TYPE 

,$CRLF 

CARRIAGE RETURN-LINE FEED 

101 

016736 

005705 




TST 

R5 

INDENT? 

102 

016740 

001342 




BNE 

12$ „ 

NO— BRANCH 

103 

016742 

104401 

040053 


19$: 

TYPE 

j|£*S2 

TYPE 2 BLANKS 

104 

016746 

000737 




8R 

LOOP 

105 

016750 

104413 



20$: 

RESREG 


RESTORE RO - R5 

106 

107 

016752 

016754 

000207 

016764 

017046 

017100 

PFECH: 

RTS 

PFECH1 

PC 

.PFECH2.PFECH3.PFE 

RETURN 

&H4 .-WORDS DEFINING TABLES BELOW 

108 

016764 

120 

117 

127 

PFE CHI: 

.ASCIZ 

?P0WEA MONITOR BIT IN CPU ERROR REGISTCR FOUND SET 

109 

017046 

124 

105 

123 

PFECH2: 

.ASCIZ 

7TESTN0 ERR PC 

CPUERREG? 


1 
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SEO 0085 


110 

111 

Q1 71 00 

017114 001132 

016332 PFECH3: 

.EVEN 

.WORD 

112 

017110 

000001 

PFECH4: 

.WORD 

113 

017112 

003 


.BYTE 

IK 

017113 

000 

PFTSTN: 

.BYTE 

115 

017114 

000000 

.WORD 


PFTSTN.SERRPC.CPSAVE.O 
1 ;NUHBER OF DATA HEADERS 

3 ; NUMBER OF WORDS IN DATA TABLE 

0 ;All 3 NUMBERS ARE OCTAL 

0 .-CONTAINS TEST NUMBER FOR PF BIT ERROR 


SEO 0086 
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I 7 


1 


.S8TTL TYPE ROUTINE 


017116 
017122 
017124 
017126 
017130 
017132 
017136 
01 7144 
01 7146 
017154 
017156 
017162 
017166 
017170 
017176 
017200 
017202 
017204 
017206 
017210 
017214 
017216 
01722? 
017224 
017230 
Cl 7232 
017234 
017236 
017240 
017244 
0U246 
017252 
017256 
017260 

017264 

017270 

017272 

017276 

017302 


•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


•N0TE1 

•NOTE 

•NOTE 


•CALL : 

*1) USING A 
TYPE 


SNULl CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SF1LLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


105737 

100002 

000000 

000430 

010046 

017600 

122737 

001011 

132737 

001405 

010037 

004737 

000000 

132737 

001003 

112046 

001005 

005726 

012600 

062716 

000002 

122716 

001430 

122716 

001006 

005726 

104401 

001231 

105037 

000755 

004737 

123726 

001350 

013746 

105366 

002770 

004737 

105337 

000770 


001173 


000002 

000001 


•OR 


STYPE: 


TRAP INSTRUCTION 
, ME SADR 


;; ME SADR IS FIRST ADDRESS OF AN ASCIZ STRING 


1$: 


001254 
000100 001255 


TYPE 
ME SADR 


TST8 

BPL 

HALT 

BR 

MOV 

MOV 

CMPB 

BNE 

BITS 

BEO 


017166 


MCV 

015434 


JSR 


61$: 

.WORD 

000040 001255 

62*: 

BITS 

BNE 


2$: 

MOVB 

BNE 

TST 


60S: 

MOV 

000002 

3$: 

ADD 

RTI 

000011 

4$: 

CMPB 

BEO 

000200 


CMPB 

BNE 

TST 

TYPE 

SCRLF 

017446 


CLR8 

BR 

017330 

5$: 

JSR 

001172 

6$: 

CMPB 

BNE 

001170 


MOV 

000001 

7$: 

DECS 

BLT 

017330 


JSR 

017446 


DECS 

BR 


STPFLG 

IS 

3$ 

RO.-(SP) 

82(SP).R0 

#APTENV,$ENV 

62S 

fAPTSPOOL.SENVM 

62$ 

R0,61S 

PC.SATY3 

0 

#APTCSUP,$ENVM 

60S 

(ROM.-(SP) 

4$ 

<SP) + 

(SP)*,R0 

#2.<SP) 

*HT,<SP> 

8$ 

fCRLF.ISP) 

5S 

(SP> + 


SCHARCNT 

2$ 

PC.STYPEC 

SFILLC.ISP)* 

2 S 

SNULL, -(SP> 

1 «SP> 

6 $ 

PC,$TYPEC 

SCHARCNT 

7S 


IS there a terminal? 

BR IF YES 

HALT HERE IF NO TERMINAL 
LEAVE 
SAVE RO 

GET ADDRESS OF ASCIZ STRING 
RUNNING IN APT MODE 
NO, GO CHECK FOR APT CONSOLE 
SPOOL MESSA6E TO APT 
NO, GO CHECK FOR CONSOLE 
SETUP MESSAGE ADDRESS FOR APT 
SPOOL MESSA6E TO APT 
MESSAGE ADDRESS 
APT CONSOLE SUPPRESSED 
YES, SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 
BR IF IT ISN'T THE TERMINATOR 
IF TERMINATOR POP IT OFF THE STACK 
RESTORE RO 
ADJUST RETURN PC 
RETURN 

BRANCH IF <HT> 

;; BRANCH IF NOT <CRLF> 

;;POP <CRXLF> EQUIV 
;;TYPE A CR AND LF 

; CLEAR CHARACTER COUNT 
.‘GET NEXT CHARACTER 
;G0 TYPE THIS CHARACTER 
;IS IT TIME FOR FILLER CHARS.? 

;IF NO GO GET NEXT CHAR. 

;GET f OF FILLER CHARS. NEEDED 
.AND THE NULL CHAR. 

.-DOES A NULL NEED TO BE TYPED? 

;BR IF NO— GO POP THE NULL OF* OF STACK 

;G0 TYPE A NULL 

;D0 NOT COUNT AS A COUNT 

.-LOOP 



J 
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.-HORIZONTAL TAB PROCESSOR 


017304 112716 

017310 004737 
017314 132737 

017322 001372 
017324 005726 
017326 000724 
017330 

017330 105777 
017334 100022 
017336 017746 
017342 042716 
017346 122716 
017352 001012 
017354 

017354 105777 

017360 100375 
017362 117716 
017366 042716 
017372 122716 
017376 001366 
01 7400 

017400 005726 
017402 

017402 105777 

017406 100375 
017410 116677 

017416 122766 
017424 001003 
017426 105037 
017432 000406 
017434 122766 
017442 001 4C2 
017444 105227 

017446 000000 
017450 000207 


000040 

017330 

000007 017446 


161624 

161620 

177600 

000023 


161600 

161574 

177600 

000021 


161556 

000002 161550 
000015 000002 

017446 

000012 000002 


8$: 

MOVB 

»• AS P) 

9$: 

JSR 

pc.Itypec 

BITB 

#7.$CHARCNT 


BNE 

9$ 


TST 

(SP>* 


BR 

2$ 

STYPEC: 


TSTB 

a$TKS 


BPL 

10$ 


MOV 

a$TKB.-(SP) 


BIC 

#1 776O0, (SP) 


CMP8 

*$XOFF,(SP) 


BNE 

102$ 

101$: 


TSTB 

a$TKS 


BPL 

101$ 


HOVB 

a$TKB.(SP) 


BIC 

#1 77600. <SP) 


CNPB 

#$XON, (SP) 


BNE 

101$ 

102$: 


TST 

(SP)* 

10$: 


TSTB 

a$TPs 


BPL 

10$ 


NOVB 

2(SP). a$TPB 


CNPB 

#CR,2(SP> 


BNE 

1$ 


CLRB 

SCHARCNT 


BR 

STYPEX 

1$: 

CNPB 

#LF.2(SP) 


BEO 

STY PEX 


INCB 

(PC'* 

SCHARCNT : .WORD 

0 

$TYPEX: 

RTS 

PC 


SEQ 0087 


; .-REPLACE TAB WITH SPACE 
.-.TYPE A SPACE 
; .BRANCH IF NOT AT 
.-.TAB STOP 

;;P0P SPACE OFF STACK 
; ;GET NEXT CHARACTER 

;;CHAR IN KYBD BUFFER? 

; ;BR IF NOT 
;;GET CHAR 

; .-STRIP EXTRANEOUS BITS 
; ; WAS CHAR XOFF 
;;BR IF NOT 

.-.WAIT FOR CHAR 

.-.GET CHAR 
;; STRIP IT 
.'.WAS IT XON? 

;;BR IF NOT 

; ;FIX STACK 

.-.-WAIT UNTIL PRINTER IS READY 

.-.-LOAD CHAR TO BE TYPED INTO DATA REG. 
; ; I S CHARACTER A CARRIAGE RETURN? 
.-.-BRANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 
.-.'EXIT 

;;IS CHARACTER A LINE FEED? 

; .‘BRANCH IF YES 
;; COUNT THE CHARACTER 
;; CHARACTER COUNT STORAGE 
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K 7 


SEQ 0088 


.S8TTL BINARY TO OCTAL (ASCII) AND TYPE 






•THIS ROUTINE 

IS USED TO CHANGE 

A 16-BIT BINARY NUMBER TO A 6-DIGIT 





•OCTAL (ASCII) 

NUMBER AND TYPE IT. 






:*$TYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 

TO TYPE 





•CALL : 








* MOV 

NUM.-(SP) 

.NUMBER TO BE TYPED 






* TYPOS 


.-CALL FOR TYPEOUT 






• .BYTE 

N 

;N=1 TO 6 FOR NUMBER OF DIGITS TO 

TYPE 





* .BYTE 

M 

;M=1 OR 0 






* 


;;1=TYPE LEADING ZEROS 






* 


;;0-SUPPRESS 1 EADING ZEROS 






•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE 

LAST 





•STYPOS OR STYPOC 







•CALL : 








• MOV 

NUM.-(SP) 

.NUMBER TO BE TYPED 






* TYPON 

» 

.-CALL FOR TYPEOUT 






•STYPOC ENTER HERE FOR TYPEOUT 

OF A 16 BIT NUMBER 






•CALL: 








•* MOV 

NUM.-(SP) 

.•NUMBER TO BE TYPED 






•* TYPOC 


.•CALL FOR TYPEOUT 


017452 

017646 

000000 


FTYPOS: MOV 

8(SP),-(SP) 

.•PICKUP THE MODE 


017456 

116637 

000001 

017675 

MOVB 

1 (SP) .SOFILL 

.•LOAD ZERO FILL SWITCH 


017464 

112637 

017677 


HOVB 

(SP)+. SOMODE+1 

.•NUMBER OF DIGITS TO TYPE 


017470 

062716 

000002 


ADD 

02, (SP) 

.’ADJUST RETURN ADDRESS 


017474 

000406 



BR 

STYPON 



017476 

112737 

000001 

017675 ! 

►TYPOC: MOVB 

01,$OFILL 

.-SET THE ZERO FILL SWITCH 


017504 

112737 

000006 

017677 

MOVB 

#6,S0M00E*1 

.SET FOR SIX(6) DIGITS 


017512 

112737 

000005 

017674 ! 

►TYPON: MOVB 

#5.$0CNT 

.-SET THE ITERATION COUNT 


017520 

010346 



MOV 

R3. -(SP) 

.•SAVE R3 


017522 

010446 



MOV 

R4, -(SP) 

.•SAVE R4 


017524 

010546 



MOV 

R5,-(SP) 

.•SAVE R5 


017526 

113704 

017677 


MOVB 

SOMODE+1 ,R4 

.-GET THE NUMBER OF DIGITS TO TYPE 


017532 

005404 



NEG 

R4 



017534 

062704 

000006 


ADD 

#6,R4 

.•SUBTRACT IT FOR MAX. ALLOWED 


017540 

110437 

017676 


MOVB 

R4.S0M0DE 

.SAVE IT FOR USE 


017544 

113704 

017675 


MOVB 

S0FILL.R4 

;GET THE ZERO FILL SWITCH 


017550 

016605 

000012 


MOV 

12(SP),R5 

.PICKUP THE INPUT NUMBER 


017554 

005003 



CLR 

R3 

.CLEAR THE OUTPUT «)RD 


017556 

006105 



IS: ROL 

R5 

.•ROTATE MSB INTO "C" 


017560 




BR 

3$ 

;G0 DO MSB 


017562 

006105 



?$: ROL 

R5 

.FORM THIS DIGIT 


017564 

006105 



ROL 

R5 



017566 

006105 



ROL 

R5 



01 7 570 

010503 



MOV 

R5.R3 



017572 

006103 



5$: ROL 

R3 

.’GET LSB OF THIS DIGIT 


017574 

105337 

017676 


DECS 

SOMODE 

.TYPE THIS DIGIT? 


017600 




BPL 

7S 

;Bft IF NO 


017602 

042703 

177770 


SIC 

#177770.R3 

.GET RID OF JUNK 


017606 

001002 



BNE 

4S 

.-TEST FOR 0 


017610 

005704 



TST 

R4 

.•SUPPRESS THIS 0? 


017612 

001403 



BEG 

5S 

;BR IF YES 


017614 

005204 



IS: INC 

R4 

.DON'T SUPPRESS ANYMORE O'S 






SEO 0089 


MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 

count ev 1 

SR IF MORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 


t 
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SEO 0090 


017700 

017700 

017702 

017704 

017706 

017710 

017712 

017716 

017722 

017724 

017726 

017734 

017736 

017742 

017746 

017750 

017754 

017756 

017760 

017762 

017764 

017766 

017770 

017772 

017774 

017776 

020000 

020002 

020010 

020014 

020020 

020022 

020024 

020030 

020052 

020034 

020036 

020040 

020042 

020044 

020052 

020054 

020056 

020060 

020062 


010046 

010146 

010246 

010346 

010546 

012746 

016605 

100004 

005405 

112766 

005000 

012703 

112723 

005002 

016001 

160105 

002402 

005202 

000774 

060105 

005702 

001002 

105716 

100407 

106316 

103003 

116663 

052702 

052702 

110223 

005720 

020027 

002746 

003002 

010502 

000764 

105726 

100003 

116663 

105013 

012605 

012603 

012602 

012601 


020200 

000020 


000055 000001 

020114 

000040 

020104 


000001 177777 

000060 

000040 


000010 


177777 177776 


.S8TTL CONVERT BINARY TO DECIMAL AND TYP* ROUTINE 

;»THIS*ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
; ‘SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•‘NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•‘BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
.•‘REPLACED WITH SPACES. 

•: CALL - MOV NUM.-(SP) ;;PUT THE BINARY NUMBER ON THE STACK 

•* TYPDS ; ; GO TO THE ROUTINE 

STYPDS: 

MOV RO.-(SP) ; ; PUSH RO ON STACK 

MOV RI.-(SP) ; ; PUSH R1 ON STACK 

MOV R2.-CSP) ;;PUSH R 2 ON STACK 

MOV R3,-(SP> ; ; PUSH R3 ON STACK 

MOV R5 t -(SP) ;;PUSH R5 ON STACK 

MOV #26200,-(SP) ;;SET BLANK SWITCH AND SIGN 

MOV 20(SP),R5 ;;GET THE INPUT NUMBER 

BPL 1$ ;;BR IF INPUT IS POS. 

NEG R5 ;;MAKE THE BINARY NUMBER POS. 

MOVB f-.l(SP) ;;MAKE THE ASCII NUMBER NEG. 

1$: CLR RO ;;ZERO THE CONSTANTS INDEX 

MOV #$D8LK.R3 ; .SETUP THE OUTPUT POINTER 

MOVB #* ,(R$)* ;;SET THE FIRST CHARACTER TO A BLANK 

2$: CLR R 2 ;; CLEAR THE BCD NUMBER 

MOV SDTBL(RO) ,R1 ;;GET THE CONSTANT 

3$: SUB R1 .R5 ; .-FORM THIS BCD DIGIT 

BLT 4$ ;;8R IF DONE 

INC R2 ;; INCREASE THE BCD DIGIT BY 1 

BR 3$ 

4$: ADD R1 .R5 ;;ADD BACK THE CONSTANT 

TST R2 ; .-CHECK IF BCD DIGIT=0 

BNE 5$ ;;FALL THROUGH IF 0 

TSTB (SP) ;; STILL DOING LEADING O’S? 

BMI 7$ ;;BR IF YES 

5$: ASLB (SP) ;;MSD? 

BCC 6$ ;;BR IF NO 

MOVB 1 (SP). -1(R3) ;; YES— SET THE SIGN 

6S: BIS #’0,r2 ; .-MAKE THE BCD DIGIT ASCII 

7$: BIS #' ,R2 ;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 

MOVB R2,(R3H ;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 

TST (r6) + ; ,*JUST INCREMENTING 

CMP R0.A10 ;; CHECK THE TABLE INDEX 

BLT 2$ ;;G0 DO THE NEXT DIGIT 

BGT 8$ ;;G0 TO EXIT 

MOV R5.R2 ;;GET THE LSD 

BR 6$ : ; GO CHANGE TO ASCII 

85: TSTB (SP)* ;;WAS THE LSD THE FIRST NON-ZERO? 

B^L 9$ ;;8R IF NO 

MOVB -1 (SP). -2 (R3) ;; YES— SET THE SIGN FOR TYPING 

9$: CL RB (R3) ;;SET THE TERMINATOR 

MOV (SPH.R5 ;;POP STACK INTO R5 

MOV (SP)*. R3 ;;P OP STACK INTO R3 

MOV (SP)‘,R2 ;;POP STACK INTO R2 

MOV (SP)* R1 ;;POP STACK INTO R1 



? 


SEO 0091 


; ; POP STACK INTO RO 
; ;NOW TYPE THE NUMBER 
..•ADJUST THE STACK 

; .-RETURN TO USER 
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B 8 


SEQ 0092 


020124 

000000 

.S8TTL 

*ENABL ! 
ITKCNT: 

020126 

000000 

ITKQIN: 

020130 

000000 

ITKQOUT: 

020132 

ITKQSRT: 

020133 

|TKQEND= 


.EVEN 


020134 

020140 

020146 

020154 

◦20162 

020170 

020174 

020202 


0 

0 

0 


; ; NUMBER OF ITEMS IN QUEUE 
;; INPUT POINTER 
; .-OUTPUT POINTEH 
; ; T T Y KEYBOARD QUEUE 


005037 

012737 

013737 

012737 

012737 

005777 

012777 

000207 


020204 

020210 

020214 

020220 

020222 

020224 

020226 

020226 

020232 

020234 

020240 

020244 

020246 

020252 

020256 

020260 

020266 

020270 

020270 

020276 

020300 


• *THIS N ROutlNE E WILL T INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
; *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


020124 

020132 

020126 

020204 

000200 

160766 

000100 


020126 

020130 

000060 

000062 

160756 


; *CALL : 

;* JSR 

;♦ RETURN 

iTKINT: CLR 
MOV 
MOV 
MOV 
MOV 
TST 
MOV 
RTS 


PC, ITKINT 


ITKCNT 

fITKQSRT.ITKQIN 

ITKQIN.ITKQOUT 

#ITKSRV,8#TKVEC 

#200.B#TKVEC+2 

BSTKB 

#100,aSTKS 

PC 


;; CLEAR COUNT OF ITEMS IN QUEUE 
;;MOVE THE STARTING ADDRESS OF THE 
.'.‘QUEUE INTO THE INPUT I OUTPUT POINTERS. 
.'.'INITIALIZE THE KEYBOARD VECTOR 
;;'BR" LEVEL 4 
;; CLEAR DONE FLAG 
.'.'ENABLE TTY KEYBOARD INTERRUPT 
.'.'RETURN TO CALLER 


*TK SERVICE ROUTINE 

♦THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
♦BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
♦IT IN THE QUEUE 

♦IF THE CHARACTER IS A ,, CONTROL-C’' <*C) ITKINT IS CALLED AND 
♦UPON RETURN EXIT IS HADE TO THE "CONTROL-C RESTART ADDRESS (SHUT) 

.-.-PICKUP THE CHARACTER 
.'.•STRIP THE JUNK 
;;IS IT A RANDOM XON? 

• • ORANfU If MQ 

••CLEAN RANDOM XON OFF STACK 
.'.'RETURN 

; ; IS IT A CONTROL C? 

.-.'BRANCH IF NO 
.-.•TYPE A CONTROL-C <*C> 

;;INIT THE KEYBOARD 
.'.'CLEAN UP STACK 
.'.'CONTROL C RESTART 
;;IS IT A CONTROL G? 

.-.'BRANCH IF NO 
; ;IS SOFT-SWR SELECTED? 

; ;G0 TO SUR CHANGE 


;;IS THE QUEUE FULL? 
.'.'BRANCH IF NO 
.'.•RING THE TTY BELL 


117746 

160752 


§TKSRV: 

MOVB 

BITKB.-(SP) 

# A C17*.(SP> 

(SPI.fiXON 

042716 

177600 



BIC 

021627 

00002 ^ 



CMP 

001002 




BNE 

301 

005726 




TST 

( SP >♦ 

000002 



301: 

RTI 

(SP).M 3 

021627 

000003 



CMP 

001007 




BNE 

11 

104401 

021346 



TYPE 

.ICNTLC 

PC, ITKINT 

004737 

020134 



JSR 

005726 




TST 

(SP) + 

000137 

021410 



JMP 

SHUT 

021627 

000007 


11: 

CMP 

(SP).#7 

001004 




BNE 

21 

022737 

000176 

001154 


CMP 

fSUREG.SUR 

001500 



21: 

BEQ 

61 

022737 

000001 

020124 


CMP 

#1. ITKCNT 

001004 




BNE 

31 

104401 

001224 



TYPE 

.IBELL 
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SEQ 0093 


020304 

005726 




TST 

ISP)* 

020306 

000451 




BR 

5$ 

020310 

021627 

000023 


3$: 

CMP 

(SP) .#23 

020314 

001021 




BNE 

32$ 

020316 

005C 77 

160636 



CLR 

a$TKS 

020322 

005726 




TST 

(SP)* 

020324 

105777 

160630 


31$: 

TSTB 

a$TKS 

020330 

100375 




BPL 

31$ 

020332 

117746 

160624 



MOVB 

a$TKB.-(SP) 

020336 

042716 

177600 



BIC 

#*C177,(SP) 

020342 

022627 

000021 



CMP 

(SP)*,#21 

020346 

001366 




BNE 

31$ 

020350 

012777 

000100 

160602 


MOV 

#100.a$TKS 

020356 

000002 




RTI 


020360 

005237 

020124 


32$: 

INC 

$TKCNT 

020364 

021627 

000140 



CMP 

(SP) .#140 

020370 

002405 




BLT 

4$ 

020372 

021627 

000175 



CMP 

(SP) ,#175 

020376 

003002 




BGT 

4$ 

020400 

042716 

000040 



BIC 

#40 ASP) 

020404 

112677 

177516 


4$: 

MOVB 

(SP)*,a$TKQIN 

020410 

005237 

020126 



INC 

STKQIN 

020414 

023727 

020126 

020133 


CMP 

$TKQIN,#$TKQEND 

020422 

001003 




BNE 

5$ 

020424 

012737 

020132 

020126 


MOV 

#$TKQSRT, STKQIN 

020432 

000002 



5$: 

RTI 



; CLEAN CHARACTER OFF OF STACK 
.-EXIT 

; I S IT A CONTROL-S? 

’BRANCH IF NO 

■DISABLE TTY KEYBOARD INTERRUPTS 

.•CLEAN CHAR OFF $ T ACK 

.-WAIT FOR A CHAR 

.•LOOP UNTIL ITS THERE 

.-GET THE CHARACTER 

.-MAKE IT 7-BIT ASCII 

;IS IT A CONTROl-Q? 

.•BRANCH IF NO 

.•REENABLE TTY KEYBOARD INTERRUPTS 
•return 

•COUNT THIS CHARACTER 
;IS IT UPPER CASE? 

.•BRANCH IF YES 

;IS IT A SPECIAL CHAR? 

.•BRANCH IF YES 
.-MAKE IT UPPER CASE 
;AND PUT IT IN QUEUE 
.'UPDATE THE POINTER 
;G0 OFF THE END? 

.•BRANCH IF NO 
.•RESET THE POINTER 
.•RETURN 


♦SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

♦ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
♦SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


020434 

022737 

000176 001154 

i "vnuu until i 

SCKSWR: CMP 

020442 

001124 


BNE 

020444 

105777 

160510 

TSTB 

020450 

100121 


BPL 

C20452 

117746 

160504 

MOVB 

020456 

042716 

177600 

BIC 

020462 

C21627 

000007 

CMP 

020466 

001300 


BNE 


JSWREG.SWR 

15 $ 

BSTKS 

15$ 

8$TKB.-<SP> 

#*C177.(SP) 

(SP),#* 

2 $ 


; ; IS THE SOFT-SWR SELECTED 

.-.-EXIT IF NOT 

;;IS A CHAR WAITING? 

; ; IF NOT, EXIT 
;;VES 

.-.-MAKE IT 7-BIT ASCII 
;;IS IT A CONTROL-G? 

; ; I F NOT, PUT IT IN THE TTV QUEUE 
;;AND EXIT 


020470 

123727 

001150 

000001 

6$: 

CMP6 

020476 

001674 




BEQ 

020500 

005726 




TST 

020502 

004737 

020134 



JSR 

020506 

005077 

160446 



CLR 

020512 

112737 

000001 

001151 


MOVB 

020520 

104401 

021360 



TYPE 

020524 

104401 

021365 


SGTSWR: 

TYPE 

020530 

013746 

000176 



MOV 

020534 

104402 




TYPOC 


♦CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
♦ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 
♦CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
SAUT0B,#1 ; ; ARE WE RUNNING IN AUTO-MODE? 

2$ ; .-BRANCH IF YES 

(SP)* .-.-CLEAR CONTPOL-G OFF STACK 

PC,$TKINT ; .-FLUSH THE TTY INPUT QUEUE 

»$fKS ; .-DISABLE TTY KEYBOARD INTERRUPTS 

#1 ,$INTAG ;;SET INTERRUPT MODE INDICATOR 

,$CNTLG .-.-ECHO THE CONTROL-G (*G) 

,$MSWR .-.’TYPE CURRENT CONTENTS 

SWREG.-(SP) ;;SAVE SWREG FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 


SEO 0094 


D 8 
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020536 

104401 

021376 



TYPE 

,$MNEW 

; .-PROMPT FOR NEW SWR 

020542 

005046 



19$: 

CLR 

-(SP) 

;; CLEAR COUNTER 

020544 

005046 




CLR 

-(SP) 

; ; THE NEW SWR 

020546 

105777 

160406 


7$: 

TST8 

S$TKS 

; ; CHAR THERE? 

020552 

100375 




BP1. 

7$ 

; ; I F NOT TRY AGAIN 

020554 

117746 

160402 



M0V8 

3$TKB.-(SP> 

;;PICK UP CHAR 

020560 

042716 

(77600 



BIC 

# A C177, (SP) 

.'.'MAKE IT 7-BIT ASCII 

020564 

021627 

000003 



CMP 

(SP),P 3 

; ; IS IT A CONTROL-C? 

020570 

001015 




BNE 

9$ 

.'.•BRANCH IF NOT 

020572 

104401 

021346 



TYPE 

,$CNTLC 

;; YES, ECHO CONTROL-C ( A C) 

020576 

062706 

000006 



ADD 

96. SP 

.'.'CLEAN UP STACK 

020602 

123727 

001151 

000001 


CMP8 

$INTAG,f1 

;;REENABLE TTY KEYBOARD INTERRUPTS? 

020610 

0C1003 




BNE 

8$ 

.'.’BRANCH IF NO 

020612 

012777 

000100 

160340 


MOV 

flOO.aSTKS 

.'.'ALLOW TTY KEYBOARD INTERRUPTS 

020620 

000137 

021410 


8$: 

JMP 

SHUT 

;;C0NTROL-C RESTART 

020624 

021627 

000025 


9$: 

CMP 

(SP),f2 5 

;;IS IT A CONTROL-U? 

020630 

001005 




BNE 

10$ 

; .'BRANCH IF NOT 

020632 

104401 

021353 



TYPE 

,$CNTLU 

;;YES. ECHO CONTROL-U ( A U) 

020636 

062706 

000006 


20$: 

ADD 

#6.SP 

;; IGNORE PREVIOUS INPUT 

020642 

000737 




BR 

19$ 

.'.'LET’S TRY IT AGAIN 

020644 

021627 

000015 


10$: 

CMP 

(SP) .915 

;;IS IT A <CR>? 

020650 

001022 




BNE 

16$ 

.'.BRANCH IF NO 

020652 

005766 

000004 



TST 

4(SP) 

;;YES, IS IT THE FIRST CHAR? 

020656 

001403 




8EQ 

11$ 

;; BRANCH IF YES 

020660 

016677 

O<V)0n:> 

160266 


MOV 

2(SP),aswR 

.’.‘SAVE NEW SWR 

020666 

062706 

000006 


11$: 

ADD 

96. SP 

.'.'CLEAR UP STACK 

020672 

104401 

001231 


14$: 

TYPE 

.$CRLF 

.-.'ECHO <CR> AND <LF> 

020676 

123727 

001151 

000001 


CMP8 

$INTAG.#1 

;; RE-ENABLE TTY KBD INTERRUPTS? 

020704 

001003 




BNE 

15$ 

.'.'BRANCH IF NOT 

020706 

012777 

000100 

160244 


NOV 

f100.a$TKS 

;; RE-ENABLE TTY KBD INTERRUPTS 

020714 

000002 



15$: 

RTI 


..'RETURN 

020716 

004737 

017330 


16$: 

JSR 

PC.STYPEC 

..ECHO CHAR 

020722 

021627 

000060 



CMP 

(SP).f 60 

;;CHAR < 0? 

020726 

002420 




BLT 

18$ 

.'.'BRANCH IF YES 

020730 

021627 

000067 



CMP 

(SP) ,#6? 

;;CHAR > 7? 

020734 

003015 




BGT 

18$ 

.'.BRANCH IF YES 

020736 

042726 

000060 



BIC 

#60,<SP>+ 

;; STRIP-OFF ASCII 

020742 

005766 

000002 



TST 

2(SP) 

;;1S THIS THE FIRST CHAR 

020746 

001403 




BED 

17$ 

.'.'BRANCH IF YES 

020750 

006316 




ASL 

(SP) 

;;N0, SHIFT PRESENT 

020752 

006316 




ASL 

(SP) 

; ; CHAR OVER TO MAKE 

020754 

006316 




ASL 

(SP) 

;; ROOM FOR NEW ONE. 

020756 

005266 

000002 


17$: 

INC 

2(SP) 

; .'KEEP COUNT OF CHAR 

020762 

056616 

177776 



BIS 

-2(SP). (SP) 

.’.SET IN NEW CHAR 

020766 

000667 




BR 

7$ 

;;GET THE NEXT ONE 

020770 

104401 

001230 


18$: 

TYPE 

.$QUES 

;;TYPE ?<CRXLF> 

020774 

000720 




BR 

ios 

.'.SIMULATE CONTROL-U 


.DSABL LS8 


• 9 
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SEQ 0095 






.-♦THIS ROUTINE 

WILL INPUT A SINGLE CHARACTER FROM THE TTY 





; *CALL : 







; * RDCHR 


; ; GE T A CHARACTER FROM ’HE QUEUE 





;* RETURN HERE 

.-.-CHARACTER IS ON THE STACK 





;* 

■ 


.-.-WITH PARITY BIT STRIPPED OFF 

020776 

011646 



SRDCHR: MOV 

(SP).-(SP) 

.-.-PUSH DOWN THE PC AND 

021000 

016666 

000004 

000002 

MOV 

4(SP).2(SP) 

;;THE PS 

021006 

005066 

000004 


CLR 

4 (SP) 

.-.-GET READY FOR A CHARACTER 

021012 

005046 



CLR 

-(SP) 

.-.-PUT NEW PS ON STACK 

021014 

012746 

021022 


MOV 

#64$. -(SP) 

.-.-PUT NEW PC ON STACK 

021020 

000002 



RTI 


.-.-POP NEW PC AND PS 

021022 




64$: 



021022 

005737 

020124 


1$: TST 

STKCNT 

.-.-WAIT ON A CHARACTER 

021026 

001775 



BEQ 

1$ 


021030 

005337 

020124 


DEC 

STKCNT 

;; DECREMENT THE COUNTER 

021034 

1 1 7766 

177070 

000004 

M0V8 

a$TKQ0UT.4(SP) 

.-.-GET ONE CHARACTER 

021042 

005237 

020130 


INC 

STKQOUT 

;; UPDATE THE POINTER 

021046 

023727 

020130 

020133 

CMP 

$TKQOUT,#$TKQEND 

;;DID IT GO OFF OF THE END? 

021054 

001003 



BNE 

2$ 

..-BRANCH IF NO 

021056 

012737 

020132 

020130 

MOV 

fSTKQSRT.STKQOUl 

;;RESET THE POINTER 

021064 

000002 



2$: RTI 


.-.-RETURN 





;*THIS ROUTINE 

WILL INPUT A STRING FROM THE TTY 





; *CALL : 







;* RDLIN 


;; INPUT A STRING FROM THE TTY 





;* RETURN HERE 

; .-ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 





;* 


.-.TERMINATOR WILL BE A BYTE OF ALL 0*S 

021066 

010346 



SRDLIN: MOV 

R3.-(SP) 

.-.SAVE R3 

021070 

005046 



CLR 

-(SP) 

;; CLEAR THE RUBOUT KEY 

021072 

012703 

021322 


IS: NOV 

#$TTYIN.R3 

;;GET ADDRESS 

021076 

022703 

021346 


2$: CMP 

#$TTYIN*20.,R3 

.-.-BUFFER FULL? 

021102 

101456 



BLOS 

4$ 

;;BR IF *ES 

021104 

104410 



RDCHR 


;;G0 READ ONE CHARACTER FROM THE TTY 

021106 

112613 



H0V8 

(SP)*. (R3) 

;;6ET CHARACTER 

021110 

122713 

000177 


10$: CHP8 

#177. (R3) 

;;IS IT A RUBOUT 

021114 

001022 



BNE 

5$ 

;;BR IF NO 

021116 

005716 



TST 

(SP) 

;;IS THIS THE FIRST RUBOUT? 

021120 

001007 



BNE 

6$ 

,*;BR IF NO 

021122 

112737 

000134 

021320 

N0V8 

#'\,9$ 

.-.-TYPE A BACK SLASH 

021130 

104401 

021320 


TYPE 

.9$ 


021134 

012716 

177777 


MOV 

<?-1 , (SP) 

.-.-SET THE RUBOUT KEY 

021140 

005303 



6$: DEC 

R3 

.-.-BACKUP BY ONE 

021142 

020327 

021322 


CMP 

R3,#$TTYIN 

.-.-STACK EMPTY? 

021146 

103434 



BLO 

4$ 

;;BR IF YES 

021150 

111337 

021320 


M0V8 

(R3) ,9$ 

;; SETUP TO TYPEOUT THE DELETED CHAR. 

021154 

104401 

021320 


TYPE 

.9$ 

; ; GO TYPE 

021160 

000746 



BP 

h 

; ,* SO READ ANOTHER CHAR. 

021162 

005716 



5$: TST 

(SP) 

;; RUBOUT KEY SET? 

021164 

001406 



BEQ 

7$ 

;;BR IF NO 

021166 

112737 

000134 

021320 

M0V8 

#’\.9$ 

.-.-TYPE A BACK SLASH 

021174 

104401 

021320 


TYPE 

.9$ 


02 1 200 

005016 



CLR 

(SP) 

.-.-CLEAR THE RUBOUT KEY 

021202 

122713 

000025 


7$: CMP8 

#25, (R3) 

;;IS CHARACTER A CTRL U? 

021206 

001003 



BNE 

6$ 

;;BR IF NO 



8 


SEQ 0096 


; ; TYPE A CONTROL ’V 
; ; 60 START OVER 
; ; JS CHARACTER A "‘R^? 

; .-BRANCH IF NO 
;; CLEAR THE CHARACTER 
; ; TYPE A ,, CR" 8 "LF* 

; ;TVPE THE INPUT STRING 
;;G0 PICKUP ANOTHER CHACTER 

• 'TYPE A ’ 

••CLEAR THE BUFFER AND LOOP 
; ;ECHO THE CHARACTER 

;; CHECK FOR RETURN 
; .'LOOP IF NOT RETURN 
;; CLEAR RETURN (THE 15) 

;;TYPE A LINE FEED 

;; CLEAN RUBOUT KEY FROM THE STACK 

* 'RESTORE R3 

••ADJUST THE STACK AND PUT ADDRESS OF THE 
;; FIRST ASCII CHARACTER ON IT 

. -RETURN 

;;ST0RA6E FOR ASCII CHAR. TO TYPE 

* - TFRMTMATDfl 

••RESERVE 20. BYTES FOR TTY INPUT 
;; CONTROL ,, C" 

;; CONTROL 'W 
;; CONTROL "G" 


;ANY MONITOR PRESENT ? 

;BR IF YES 
;S0 TO 'START2' 

;FUD6E NO DRIVES SELECTED 
; RE TURN CONTROL TO MONITOR 


L 



sea 0097 
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.S8TTL SCOPE HANDLER ROUTINE 


•THIS ROUTINE CONTROLS THE LOOPING OF SU8TESTS. IT WILL INCREMENT 
•AND LOAD THE TEST NUMBER <$TSTNM) INTO THE D I SPLAT REG. (DISPLAT<7:0» 
•AND LOAD THE ERROR FLAG (SERF LG> INTO DISPLAY<15:08> 

•THE SWITCH OPTIONS PROVIDED BY THIS P3UTINE ARE: 

•SW14-1 LOOP ON TEST 

*SW11=1 INHIBIT ITERATIONS 

•SW09-1 LOOP ON ERROR 

•CALL 

* SCOPE ;;SCOPE=IOT 


021450 000416 


021432 SSCOPE: 

021432 104407 CKSWR 

021434 032777 040000 157512 1$: BIT 

021442 001402 BEO 

021444 000137 022014 JMP 

021450 9J: 

;#####START OF 
iXTSTR: BR 

021452 013746 000004 MOV 

021456 012737 021476 000004 MOV 

021464 005737 177060 TST 

021470 012637 000004 MOV 

021474 000531 BR 

021476 022626 5S: CMP 

021500 012637 000004 MOV 

021504 000474 BR 

021506 6$:;#####END OF 

021506 105737 001117 2$: TSTB 

021512 001502 BEQ 

021514 022737 177777 016332 CMP 

021522 001455 BEQ 

021524 013746 000004 MOV 

021530 012737 021546 000004 MOV 

021536 013737 177766 016332 MOV 

021544 000406 BR 

021546 012737 177777 016332 2000$: MOV 

021554 012716 021562 MOV 

021560 000002 . RTJ 

021562 012637 000004 2001$: MOV 

021566 022737 177777 016332 2002$: CMP 

021574 001430 BEO 

021576 032737 000001 016332 BIT 

021604 001424 BEQ 

021606 042737 000001 177766 BIC 

021614 013746 001154 MOV 

021620 017646 000000 MOV 

021624 012737 000176 001154 MOV 

021632 011677 157316 MOV 

021636 042777 001000 157310 BIC 

021644 104177 EMT 

021646 012676 000000 MOV 

021652 012637 001154 MOV 


#BIT14,aSWR 

9$ 

$0VER 


TEST FOR CHANGE IN SOFT-SWR 
LOOP ON PRESENT TEST? 

NO IF SW14=0 

JUMP OVER SCOPE ROUTINE 


CODE FOR 
6 $ 


STERRVEC.-(SP) 

#5$,a#ERRVEC 

mf?oto 

(SP)*. 8#ERRVEC 
SSVLAD 
(SP>*. <SP) + 
(SP)*,i#ERRVEC 

7$ 


THE XOR TESTER##### 

; ; IF RUNNING ON THE "XOR" TESTER CHANGE 
;;THIS INSTRUCTION TO A *NOP" CN0P=240> 
; SAVE THE CONTENTS OF THE ERROR VECTOR 
;SET FOR TIMEOUT 
;TIME OUT ON XOR? 

; RESTORE THE ERROR VECTOR 
;60 TO THE NEXT TEST 
; CLEAR THE STACK AFTER A TIME OUT 
.RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 


CODE FOR THE XOR' t ESTER##### 


SfPFLG 
3$ 

#-1 .CPSAVE 
200 $$ 

tRRVEC.-(SP) 
#20OO$,ERRVEC 
177766. CPSAVE 
2001 $ 

#-1. CPSAVE 
#2001$. (SP) 


;;HAS AN ERROR OCCURRED? 

. .gf| 

••SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 

-.-KICK AROUND ROUTINE IF SO 

;;SAVE CONTENTS OF ERROR VECTOR 

.'.'SETUP ‘TRAP* RETURN ADDRESS 

.-.'MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

; ; SET CPU ERROR REGISTER TIMEOUT INDICATOR 
.'.SETUP RETURN ADDRESS 


(SP )*. ERRVEC .'.RESTORE CONTENTS OF ERROR VECTOR 


#-1. CPSAVE 

200 $$ 

#81 TOO, CPSAVE 
2003$ 

#81 TOO, 177766 
SWR.-(SP) 
a(SP),-(SP) 
#176, SWR 
(SP). aswR 
#BIT09,aSWR 

(SP)+,a(SP) 

(SPJ+.SWR 


.'SEE IF CPSAVE HAS CPU ERR RE6 TIMEOUT INDICATION 
.'BRANCH IF SO 

.'SEE IF THE POWER MONITOR BIT IS ON 

.-BRANCH TO CONTINUE ROUTINE IF CLEAR 

.'CLEAR THE BIT FOUND TO BE SET 

.SAVE SWR ADDRESS 

.'SAVE SWR VALUE 

.'GET SOFTWARE SWR ADDRESS 

.'GET CURRENT SWR VALUE 

.DON'T ALLOW LOOP ON ERROR ON THIS ERROR 

.-CALL SPECIAL POWER FAIL BIT ERROR CALL 

.'RESTORE SWR TO ORIGINAL VALUE 

.'RESTORE SWR ADDRESS 




SEQ 0098 


MAX. ERRORS FOR THIS TEST OCCURRED? 

BR IF NO 
LOOP ON ERROR? 

BR IF NO 

SET LOOP ADDRESS TO LAST SCOPE 
ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO HAKE 
ESCAPE TO THE NEXT TEST 
INHIBIT ITERATIONS? 

BR IF YES 

INCREMENT ITERATION COUNT 

CHECK THE NUMBER OF ITERATIONS MADE 

BR IF MORE ITERATION REQUIRED 

REINITIALIZE THE ITERATION COUNTER 

SET NUMBER OF ITERATIONS TO DO 

COUNT TEST NUMBERS 

SET TEST NUMBER IN APT MAILBOX 

SAVE SCOPE LOOP ADDRESS 

SAVE ERROR LOOP ADDRESS 

CLEAR THE ESCAPE FROM ERROR ADDRESS 

ONLY ALLOW 0NE(1> ERROR ON NEXT TEST 

DISPLAY TEST NIMBER 

FUDGE RETURN ADDRESS 

FIXES PS 

MAX. NUMBER OF ITERATIONS 


i 



SEQ 0099 
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022032 

022032 

022034 

022036 

022040 

022042 

022044 

022046 

022052 

022056 

022062 

022066 


022070 

022070 

022074 

022100 

022104 

022110 

022112 

022114 

022116 

022120 

022122 

022124 


010046 

010146 

010246 

010346 

010446 

010546 

016646 000022 
016646 000022 
016646 000022 
016646 000022 
000002 


.S8TTL SAVE AND RESTORE R0-R5 ROUTINES 


•SAVE R0-R5 
•CALL: 

* SAVREG 

•UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE 
% 

* TOP (♦16) 

* +2 018) 

* +4 R5 

* +6 — R4 

* *8 — R3 
*♦10 — R 2 
*♦12 — R1 
*♦14 — RO 


ISAVREG: 


NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
RTI 

•RESTORE R0-R5 
•CALL: 


RO.-(SP) 

RI.-(SP) 

R2,-(SP) 

R3.-(SP) 

R4.-(SP) 

R5,-(5P) 

22(SP).-(SP) 

22(SP).-(SP) 

22(SP),-<SP) 

22(SP),-(SP> 


;;PUSH 

;;PUSH 

;;PUSH 

;;PUSH 

;;PUSH 

;;PUSH 

;;SAVE 

;;SAVE 

;;SAVE 

;;SAVE 


RO ON 
R1 ON 


ON 

ON 


R4 ON 
R5 ON 
PS OF 
PC OF 
PS OF 
PC OF 


STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

NA1N FLOW 

NAIN FLOW 

CALL 

CALL 


012666 

000022 

;* RESREG 

SRESREG: 

NOV 

012666 

000022 

NOV 

012666 

000022 

NOV 

012666 

000022 

NOV 

012605 


NOV 

012604 


NOV 

012603 


NOV 

012602 


NOV 

012601 


NOV 

012600 


NOV 

000002 


RTI 


(SP)*.22<$P) 
(SP)*,22(SP> 
(SP)*,22(SP) 
(SP ) ♦ . 22 (SP) 
(SP)*,R5 
(SP) +.R4 
(SP)*,R3 
(SP)*,R2 
(SP)*. R1 
(SP)*, RO 


; RESTORE PC 
.•RESTORE PS 
.•RESTORE PC 
.RESTORE PS 
;POP STACK 
;POP STACK 
;POP STACK 
;POP STACK 
.POP STACK 
.-POP STACK 


OF CALL 
OF CALL 
OF NAIN FLOW 
OF NAIN FLOW 
INTO R5 
INTO R4 
INTO R3 
INTO R2 
INTO R1 
INTO RO 
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TRAP DECOOER 

.S8TTL TRAP DECOOER 


SEO OTOO 


022126 

010046 


STRAP: NOV 

RO.-(SP) 

022130 

016600 

000002 

NOV 

2(SP), RO 

022134 

005740 


TST 

-(RO) 

022136 

111000 


NOVB 

(RO).P) 

022140 

006300 


ASL 

RO 

022142 

016000 

022162 

NOV 

STRPAD (RO).RO 

022146 

000200 


RTS 

RO 




; ; THIS IS USE 

TO HANDLE THE “ 

022150 

011646 


STRAP2: NOV 

(SP).-(SP) 

022152 

016666 

000004 

000002 NOV 

4(SP),2(SP) 

022160 

000002 


RTI 



•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE *'TRA P" INSTRUCTION 
•AMD USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 

TRAP: NOV RO,-(SP) ;;SAVE RO 

NOV 2(SP), RO ;;GET TRAP ADDRESS 

TST -(RO) ;; BACKUP BV 2 

NOVB (RO).P) ;;GET RIGHT BYTE OF TRAP 

ASL RO ; .-POSITION FOR INDEXING 

NOV STRPAD (RO).RO ;; INDEX TO TABLE 

RTS RO ;;G0 TO ROUTINE 


022162 

022164 

022166 

022170 

022172 

022174 


022150 

017116 

017476 

017452 

017512 

017700 


022176 020524 


022200 

022202 

022204 

022206 

022210 


020434 

020776 

021066 

022032 

022070 


HOVE THE PC DOWN 
HOVE THE PSW DOWN 
RESTORE THE PSW 


, S8TTL TRAP TABLE 


.-•THIS TABLE CONTAINS THE STARTING ADDRESSES OF 
;*BY THE ‘'TRAP" INSTRUCTION. 


ROUTINE 


STRPAD: .WORD 
STYPE 
STYPOC 


.WORD STRAP2 
STYPE ;;CALL=TYPE 
STYPOC ;;CALL=TYPOC 
STYPOS ;;CALL*TYPOS 
STYPON ;;CALL=TYPON 
STYPDS ;;CALL=TYPOS 


TRAP+K 104401) 
TRAP*2(104402) 
TRAP*3( 104403) 
TRAP*4( 104404) 
TRAP*5( 104405) 


THE ROUTINES CALLED 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


SGTSWR ;;CALL=GTSWR TRAP*6( 104406) GET SOFT-SWR SETTING 


SCKSUR ; 
SR DC HR ; 
SRDLIN ; 
SSAVREG ; 
SRESREG ; 


CALL=CXSWR 
CALL-RDCHR 
CALL=RDLIN 
CALL=SAVREG 
CALL-RE SREG 


TRAP+7H04407) 
TRAP*10(104410) 
TRAP+11 (104411 ) 
TRAP*12(104412) 
TRAP*13(104413) 


TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
SAVE R0-R5 ROUTINE 
RESTORE R0-R5 ROUTINE 
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SINGLE LENGTH BINARY TO DECIMAL ASC1Z ROUTINE 


K 8 


SEQ 0101 


.$8TTl SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 

iTHIS*ROUTINE*WILL*CONVERT*A 16^BIT UNSICNED BINARY NUMBER TO AN 
* UNSIGNED DECIMAL ASCIZ NUMBER. 

♦CALL 


022212 016637 000002 0 22242 SS82D: 

022220 012746 022242 

022224 004737 022246 

022230 062716 000005 

022234 012666 000002 


022240 000207 
022242 000000 000000 


IS: 


MOV 

NUMBER. -(SP) 

JSR 

RETURN 

PC.a*SS82D 

MOV 

2(SP) ,1$ 

MOV 

m,-<sp) 

JSR 

PC.BASDB2D 

ADD 

#5, (SP) 

MOV 

<SP)*.2<SP) 

RTS 

PC 

.WORD 

0.0 


PUT BINARY NUMBER ON THE STACK 
CALL 

ADDRESS OF THE 1ST ASCIZ CHAR. IS ON THE STACK 


SAVE BINARY NUMBER 
SET POINTER 

CALL DOUBLE LENGTH CONVERT 
ONLY ALLOW FIVE CHARACTERS 
PICKUP POINTER 
RETURN 



SEO 0102 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


L 8 


022246 

022250 

022254 

022260 

022264 

022266 

022270 

022276 

022302 

022306 

022310 

022312 

022314 

022316 

022320 

022322 

022324 

022326 

022330 

022332 

022334 

022340 

022342 

022344 

022346 

022350 

022352 

022354 

022356 

022360 

022362 

022364 

022366 

022370 

022372 

022374 

022376 

022400 

022402 

022404 

022406 

022410 

022412 

022414 


104412 


012201 

012202 


005003 

161401 

005602 

161502 

002402 

005203 

000772 

062401 

005502 

062402 

022525 

052703 

110320 

005327 

000000 

001357 

105020 

104413 

000207 

145000 

035632 

160400 

002765 

113200 

000230 

041100 

000017 

103240 

000001 

023420 

000000 

001750 

000000 

000144 

000000 


.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

i?HIS*ROUTINE HILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
"DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
"POSITIVE. 

;; POINTER TO LOW WORD OF BINARY NUMBER 

;;THE FIRST ADDRESS OF ASCIZ 
; ; I S ON THE STACK 

;;SAVE REGISTERS 
; .-PICKUP THE DATA POINTER 
;;GET ADDRESS OF "SDECVL” STRING 
; .-PUT ADDRESS OF ASCIZ STRING ON STACK 
; .-PICKUP THE BINARY NUMBER 

;;SET UP TO DO 10 CONVERSIONS 
.-.-ADDRESS OF TEN POWER 

;; CLEAR PARTIAL 
;; SUBTRACT TEN POWER 

;;BR IF TEN POWER TO LARGE 
;;ADD 1 TO PARTIAL 
;;LOOP 

.'.•RESTORE SUBTRACTED VALUE 

;;MOVE TO NEXT TEN POWER 
;; CHANGE PARTIAL TO ASCII 
;;SAVE IT 
.'.'DONE? 

;;BR IF NO 
;; TERMINATOR 
.'.•RESTORE REGISTERS 
.-.'RETURN 
;;1 .0E09 

;;1.0E08 

; ; 1 . 0E07 

;;1 .0E06 

;;1.0E05 

;;1.0E04 

;;1.0E03 

; ; 1 .0E02 



.-"CALL 


#PNTR,-lSP) 


; * 

MOV 


* * 

JSR 

PC,d#»DB2D 


; * 

RETURN 



SD82D : 

SAVREG 

2(SP).R2 

000002 


MOV 

022426 


MOV 

fSDECVL.RO 

R0,2(SP) 

(R2)".R1 

000002 


MOV 


MOV 



MOV 

(R2)".R2 

000012 022344 


MOV 

#10.. 4S 

022356 


MOV 

#$TNPWR,R4 

022360 


MOV 

#STNPWR+2.R5 

IS: 

CLR 

R3 


2$: 

SUB 

(R4).R1 



SBC 

R 2 



SUB 

(R5).R2 



BLT 

3S 



INC 

R3 



BR 

2S 


3$: 

ADD 

(R4)",R1 



ADC 

R2 



ADD 

(R4)".R2 



CMP 

(R5)".(R5)" 

#’0,R$ 

000060 


BIS 


MOVE 

R3,(R0)" 



DEC 

(PC)" 


4$: 

.WORD 

0 



BNE 

1J 



CLRB 

RESREG 

(RO)" 



RTS 

PC 


STNPWR: 145000 
35632 
160400 
2765 
113200 
230 

041100 

17 

103240 

1 

23420 

0 

1750 

0 

144 

0 




I 
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DC BLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


022416 

000012 

12 

022420 

000000 

0 

022422 

000001 

1 

022424 

000000 

0 

022426 

SDECVL: .BLK8 
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TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


SEQ 0104 


022442 010046 
022444 016600 000004 
022450 105710 
022452 001403 
022454 122720 000060 
022460 001773 
022462 005300 
022464 010037 022472 
022470 104401 
022472 000000 
022474 012600 
022476 012616 
022500 000207 


.S8TTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 

;*THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
.••LEADING NUMBERS. 

jI CALL MOV #NUMADR,-(SP) ; .-FIRST ADDRESS OF ASCIZ STRING 


SAVE RO 

PICKUP THE POINTER 
TERMINATEOR? 

8R IF YES 

IS THIS AN ASCII ’XT ? 
8R IF YES 
BACKUP BY ‘V’ 

SAVE FOR TYPING 
GO TYPE 

ASCIZ POINTER GOES HERE 
RESTORE RO 
RESTORE THE STACK 
RETURN 


; * 

MOV 

fNUMADR (SP) 

;* 

JSR 

PC.WSSUPRS 

SSUPRS: 

MOV 

RO.-(SP) 


MOV 

4(SP).R0 

IS: 

TST8 

(RO) 


BEQ 

2$ 


CMP8 

#'0.(R0)+ 


BEQ 

1$ 

2$: 

DEC 

RO 

MOV 

TYPE 

R0.3S 

3S: 

.UORD 

0 


MOV 

(SP)*.RO 


MOV 

(SP)+.(SP) 


RTS 

PC 


B 9 
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RANOOM NUMBER GENERATOR ROUTINE 

•S8TTL RANDOM NUMBER GENERATOR ROUTINE 


i 


022502 

022502 010046 
022504 010146 
022506 010246 
022510 013700 
022514 013701 
022520 012702 
022524 006300 
022526 006101 
022530 005202 
022532 001374 
022534 063700 
022540 005501 
022542 063701 
022546 062700 
022552 005501 
022554 062701 
022560 010037 
022564 010137 
022570 012602 
022572 012601 
022574 012600 
022576 000207 
022600 176543 
022602 123456 


022602 

022600 

177771 


022602 

022600 

001057 

047401 

022602 

022600 


■ ******* *************** ********************************** ******* 
•THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
•WITH A RANGE OF 0 TO 2(+33>-1. 


.-•CALL: 


;* JSR 

PC. SRAND 

;* RETURN 

* 


# 

SRAND: 


MOV 

RO.-(SP) 

MOV 

RI.-(SP) 

MOV 

R2,-(SP) 

MOV 

SLONUM.RO 

MOV 

SHINUM. Rl 

MOV 

#-7,R 2 

IS: ASL 

RO 

ROL 

Rl 

INC 

R2 

BNE 

IS 

ADD 

SLONUM.RO 

ADC 

Rl 

ADD 

SHINUM.R1 

ADD 

#1057. RO 

ADC 

Rl 

ADD 

#47401. Rl 

MOV 

RO. SLONUM 

MOV 

Rl .SHINUM 

MOV 

(SPI+.R2 

MOV 

(SP)+. Rl 

MOV 

(SP )+. RO 

RTS 

PC 

SHINUM: .WORD 

176543 

SLONUM: .WORD 

123456 


CALL THE ROUTINE 
RETURN HERE THE RANDOM 
NUMBER WILL BE IN 
SHINUM. SLONUM 


PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
SET RO WITH LOW 
SET R1 WITH HIGH 
SET SHIFT COUNT 
SHIFT RO LEFT AND 
ROTATE CARRY INTO Rl AND 
CHECK FOR DONE 
CONTINUE SHIFT LOOP 
ADD NUMBER TO MAKE X 129 
PROROGATE CARRY 
ADD NUMBER TO MAKE X 129 
ADD LOW CONSTANT 
PROROGATE CARRY 
ADD HIGH CONSTANT 
SAVE RO 

SAVE Rl 

POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 
RETURN 
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INTEGER DIVIDE ROUTINE 


SEQ 0106 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 022604 

25 022606 

26 022612 

27 022614 

28 022620 

29 022624 

30 022626 

31 022630 

32 022634 

33 022640 

34 022644 

35 022646 

36 022650 


.SBTTL INTEGER DIVIDE ROUTINE 


♦THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER 
♦DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING 
♦A 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER. 
♦DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 
♦SAME SIGN AS THE DIVIDEND. 


♦CALL: 

* 


MOV 

MOV 

MOV 

JSR 

RETURN 


LOW DIVIDEND. -(SP) 
HIGH DIVIDEND, -<SP) 
DIVISOR, -(SP) 
PC.JDIV 


;;THE HIGH DIVIDEND MUST BE < 1/2 
;;AS LARGE AS THE DIVISOR 


; .'QUOTIENT ( REMAINDER ARE ON THE STACK 


STACK NO ERROR 

TOP REMAINDER 

♦2 QUOTIENT 


OVERFLOW 

ALL ZEROS 
ALL ZEROS 


DIVIDE BY ZERO 

ALL ONES 
ALL ONES 


♦NOTE: THIS ROUTINE WILL LINK TO THE DIVISION SUBROUTINE ('M.DPID'). 


104412 

016605 

005004 

016602 

016603 

005000 

005001 

004737 

010166 

010366 

104413 

012616 

000207 


000026 

000030 

000032 


022652 

000030 

000032 


SDIV: 


SAVRFG 

MOV 

CLR 

MOV 

MOV 

CLR 

CLR 

JSR 

MOV 

NOV 

RESREG 

MOV 

RTS 


26(SP) ,R5 
R4 

30(SP).R2 
3?(SP) ,R3 
RO 
R1 

PC.M.DPID 

R1.30(SP) 

R3,32(SP) 

(SP)+.(SP) 

PC 


STORE RO - R5 
DIVISOR 

OTHER DIVISOR WORD 

UPPER DIVIDEND WORD 

LOWER DIVIDEND WORD 

CLEAR OTHER DIVIDEND REGISTERS 

GO TO THE DIVIDE ROUTINE 
REMAINDER ON THE STACK 
QUOTIENT ON THE STACK 
RESTORE RO - R5 
MOVE RETURN UP THE STACK 


i 

t 
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DOUBLE PRECISION DIVISION SUBROUTINE 


D 9 


SEO 0107 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 022652 

15 022656 

16 022660 

17 0226O2 

18 022666 

19 022670 

20 022674 

21 022676 

22 022700 

23 022704 

24 022706 

25 022710 

26 022712 

27 022714 

28 022716 

29 022720 

30 022722 

31 022724 

32 022726 

33 022732 

34 022734 

35 022736 

36 022742 

37 022744 

38 022746 

39 022750 

40 022752 

41 022754 

42 022756 

43 022760 

44 022762 

45 022764 

46 022770 

47 022772 

48 022774 

49 022776 

50 023000 

51 023002 

52 023004 

53 023006 

54 023010 

55 023014 

56 023016 

57 023020 


.S8TTI DOUBLE PRECISION DIVISION SUBROUTINE 


CALL 


JSR 


PC.M.DPID 


DIVIDEND = R0-R1-R2-R3 (R0=MSD) 
DIVISOR = R4-R5 (R4=MSD> 


RETURN 


REMAINDER AFTER DIVISION = U0-R1 (R0=MSD> 
QUOTIENT AFTER DIVISION = R2-R3 (R2=MSU) 


012746 

000040 

M.DPID: MOV 

#40. -<SP> 

010446 


MOV 

R4.-(SP> 

010546 


MOV 

R5,-(SP> 

005466 

000002 

NEG 

2(SP) 

005416 


o 

asp 

005666 

000002 

SBC 

2(SP) 

061601 


ADD 

asp.Ri 

005500 


ADC 

RO 

066600 

000002 

ADD 

2(SP).R0 

M.DP50 

103445 


BCS 

005046 


CLR 

-(SP) 

006103 


M.DP40: ROL 

R3 

006102 


ROL 

R 2 

006101 


ROL 

R1 

006100 


ROL 

RO 

005716 


TST 

asp 

001410 


BEQ 

M.DP41 

005016 


CLR 

asp 

066601 

000002 

ADD 

2(SP).R1 

005500 


ADC 

RO 

005516 


ADC 

asp 

06660C 

000004 

ADD 

4(SP).R0;< 

M.DP42 

000404 


BR 

060501 


M.DP41: ADD 

R5.R1 

005500 


ADC 

RO 

005516 


ADC 

8SP ; 

060400 


ADD 

R4.R0 ;< 

005516 


M.DP42: ADC 

asp 

005716 


TST 

asp 

001401 


BEQ 

.♦4 

005203 

005366 

000006 

INC 

DEC 

R3 : 

6(SP) ;< 

003347 

BGT 

M.DP40 

006003 

103404 


ROR 

BCS 

R3 

M.DP44 

060501 


ADD 

R5.R1 

005500 


ADC 

RO 

060400 


ADD 

R4.R0 

000241 


CLC 

R3 

006103 


M.DP44: ROL 

062706 

000010 

ADD 

#10.SP 

000242 


CLV 

PC 

#6,$P 

000207 

062706 

000006 

RTS 

M.DP50: ADD 


COUNTER FOR DIVISION CYCLES 
HIGH ORDER 

LOW ORDER DIVISOR TO THE STACK 

FORM NEGATIVE 

VERSION OF THE DIVISOR 


.•PERFORM THE INITIAL SUBTRACTION 

;IF CARRY THEN OVERFLOW HAS OCCURRED 
;TH1S IS A LONGER LASTING CARRY BIT 


;TEST "CARRY" INDICATOR 

;IF NO "CARRY" THEN ADD ELSE SUBTRACT 

.•CLEAR UP FOR NEXT TIME 

;ADD -(DIVISOR) 

;SET "CARRY" 


ADD ♦(DIVISOR) 

SET "CARRY" 

cc t ••fARRY" 

TEST THE UPDATE INDICATOR 
IF ZERO FORGET IT 
NO CARRY POSSIBLE HERE 
DECREMENT COUNTER 
BRANCH IF MORE TO DO 


.•ADJUST STACK BY 4 WORDS 


E 9 


SEQ 0108 
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SEV 

RTS PC 
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00U8LE PRECISION DIVISION SUBROUTINE 


SEQ 0109 


1 

2 

3 

A 

5 

6 023030 

7 023032 

8 023036 

9 0230A2 

10 0230A6 

11 02305A 

12 023056 

13 023062 
1A 023070 

15 023072 

16 023076 

17 023102 
0231 OA 
023106 
023107 

18 023110 

19 02311 A 

20 023120 

21 0231 2A 

22 023132 

23 023136 
2A 0231 A2 

25 0231 A A 

26 

27 

28 

29 

30 

31 

32 

33 0231 A6 
3A 023152 

35 023160 

36 023166 

37 0231 7A 

38 

39 
AO 
A1 
A2 
A3 
AA 
A5 

A6 023176 
A7 023202 
A8 023210 
A 9 02321 A 

50 023220 

51 02322A 

52 023226 

53 023230 
5 A 023236 


0100A6 
013700 
016000 
0A2700 
136037 
001 A32 
105260 
126037 
103A2A 
10AA01 
10AA01 
0100A6 
10AA03 
002 
000 
10AA01 
10AA01 
10AA01 
1A6037 
005337 
000137 
012600 
000207 


031366 

000010 

177770 

031356 001330 
001512 

001512 001316 

001231 

037273 


037302 

037160 

037313 

031356 001330 

01531A 

0151A2 


.THIS ROUTINE IS USED TO INCREMENT THE ERROR COUNT FOR EACH DRIVE BEING 
.-TESTED. IF THE TOTAL ERRORS ON ANY DRIVE EXCEEDS THE MAXIMUM ALLOWABLE 

.-ERRORS DESIGNATED IN LOCATION 'ERMAX' . A MESSAGE WILL BE TYPED AND THE 

.-DRIVE IN ERROR WILL BE DROPPED FROM THE TEST. 

INCEC: MOV RO.-(SP) .-SAVE RO 

MOV RMADR.RO .GET RM BASE ADDRESS 

MOV RMCS2(R0) ,R0 ;GET CONTENTS OF RMCS2 

BIC f A C7,R0 .-SAVE UNIT SELECT BITS 

BITS ATABIT(RO) .DRVSEL ;WAS THIS DRIVE SELECTED FOR TEST 

BEQ IS ;BR IF NO 

INCB ERRCN(RO) .-increment ERROR COUNT 

CMP8 ERRCN(RO> .ERMAX .-EXCEEDED ERROR LIMIT ? 

BLO IS ;BR IF NO 

TYPE .SCRLF ; CR-LF 

TYPE .MSDRIV .-TYPE 'DRIVE' 

MOV RO.-(SP) .-.SAVE RO FOR TYPEOUT 

TYPOS ;;G0 TYPE— OCTAL ASCII 

.BYTE 2 .-.-TYPE 2 DIGIT(S) 

.BYTE 0 ;; SUPPRESS LEADING ZEROS 

TYPE .DROP .-TYPE ' DROPPED' 

TYPE .COMMA ;TYPE ', ' 

TYPE .EXCEED .-TYPE 'EXCEEDED MAXIMUM ERROR LIMIT' 

BJCB ATABIT(RO). DRVSEL ;DESELECT DRIVE FROM TEST 

DEC SEOPCT .-ADJUST *EOP' COUNT 

JMP SEOP ; RETURN .0 SEOP 

IS: MOV (SP>+, RO .-RESTORE RO 

RTS PC 

.-THIS SUBROUTINE CLEARS THE MASS8US CONTROLLER. MASS8US ADAPTER. 

.-AND DRIVERS. THEN SELECTS THE DRIVE. 

.-CALL: 

; JSR PC.CNTCLR .-CALL TO ROUTINE 


01 3706 031366 
012764 000040 000010 
042737 177770 001352 
013764 001352 000010 
000207 


CNTCLR: MOV 
MOV 
BIC 
MOV 
RTS 


RMADR.R4 .‘GET RMCS1 BASE ADDRESS 

#CLR.RMCS2'R4) .-ISSUE MASS8US CLEAR AND 
#*C7,CHKDRV .SAVE UNIT SELECT BITS 

CHKD6v.RMCS2(R4) .-SELECT THE DRIVE 

PC .RETURN 


SET ' wPTAVL" TO THE PROPER STATE. 

LPTAVL = 0 IF NO LINE PRINTER AVAILABLE 
LPTAVL = 1 IF LINE PRINTER IS AVAILABLE 


JSR 

RETURN 


005037 001326 
012737 023226 000004 
005037 000006 
005777 156334 
005237 001326 
000401 
022626 

012737 000006 000004 
000207 


LP.AVL: CLR 
NOV 


PC. LP.AVL 


LPTAVL ;START WITH NO PRINTER AVAIABLE 
m.ERRvk .-SETUP THE TIMEOUT VECTOR 

ERRVEC+2 

BLPS ;IS THERE A LINE PRINTER? 

^PTAVL ;YES— SEt AVAILABLE SWITCH 

ISP)*. (SP)+ ;N0— POP STACK 

#ERRV§C+2.ERRVEC .-RESTORE TIMEOUT VECTOR 

PC .RETURN 
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SEO 0110 


U 


55 

56 





THIS ROUTINE VIII DETERMINE IF 

THERE IS A CLOCK ON THE SYSTEM 

57 





AND IF 

THERE IS IT WILL SETUP THE VECTOR AND START THE CLOCK 

58 





"CLKSTA WILL 

INDICATE THE CLOCK TYPE 

59 





0= NO 

CLOCK 



60 





■♦1= KW11-P 



61 





-1= KW11-L 



62 





■THIS ROUTINE WILL ALSO SETUP 'TICKHS" (TIME 

63 





PER CLOCK TICK 

IN MILLISECONDS) 

AND "TICKUS" 

64 





(TIME PER CLOCK TICK IN MICROSECONDS) AS 

65 





•PER SWOO. 



66 





swoo=o 

— 60HZ 



67 





3*00=1 

— 50HZ 



68 

69 

70 

71 

72 





CALL 

JSR 

RETURN 

PC.ST.CLK 


023240 

010146 


ST. CUC : 

MOV 

RI.-(SP) 

;SAVE R1 

73 

023242 

012701 

00C006 



NOV 

#ERRVEC*2.R1 

(RI).-(SP) 

.-SAVE AND SETUP TIMEOUT VECTOR 

74 

023246 

011146 




MOV 


75 

023250 

005011 




CLR 

(R1) 

.’LEVEL 0 

76 

023252 

014146 




MOV 

-(Rl).-(SP) 

;30 TO IS ON TIMEOUT 

77 

023254 

012711 

023304 


> 

NOV 

m,(Ri) 

78 

023260 

005037 

001342 



CLR 

CLKSTA 

;SET CLOCK STATUS TO NO CLOCK 

79 

023264 

005777 

156244 



TST 

RPKCS 

; IS THERE A KW11-P? 

80 

023270 

012737 

000001 

001342 


NOV 

#1. CLKSTA 

; YES— SET STATUS TO KW11-P 

81 

023276 

004737 

023406 



JSR 

PC, ST.PCLK 

.•START THE KW11-P 

82 

023302 

000414 




BR 

3$ 

;60 TO EXIT 

83 

023304 

022626 


1$: 

CMP 

(SP)*,(SP>+ 

.•CLEAN UP THE STACK 

84 

023306 

012711 

023332 



MOV 

#2S. (R1) 

;IF TIMEOUT 60 TO 2S 

85 

023312 

005777 

156230 



TST 

BLKS 

; IS THERE A KW11-L? 

86 

023316 

012737 

1 77777 

001342 


MOV 

#-1. CLKSTA 

;YES— SET STATUS TO KW11-L 

87 

023324 

004737 

023450 



JSR 

PC.ST.LCLK 

.•START THE KW11-L 

88 

023330 

000401 




BR 

3$ 

.•EXIT 

89 

023332 

022626 


2$: 

CMP 

(SPH.(SP)* 

.•CLEAN UP THE STACK 

90 

023334 

012621 


3$: 

NOV 

(SPH, (R1> + 

.-RESTORE THE TIMEOUT VECTOR 

91 

023336 

012621 




NOV 

(SP>+. (R1H 

.•RESTORE R1 
;50HZ OR 60 HZ? 

92 

023340 

012601 




MOV 

(SPH, R1 

93 

023342 

032737 

000100 

001314 


BIT 

#SW06,CSWR 

94 

023350 

001407 




BEQ 

4$ 

.-BRANCH IF 60 

95 

023352 

012737 

000020 

001344 


MOV 

#2Q.TICKNS 
#20000., T1CKUS 

.•SETUP TIME PER 

96 

023360 

012737 

047040 

001346 


NOV 

.-TICK FOR 50HZ 

97 

023366 

023370 

023376 

000406 




BR 

5$ 


98 

012737 

000016 

001344 4$: 

MOV 

#16.TICKNS 

.•SETUP TIME PER 

99 

012737 

040432 

001346 


NOV 

#16666. .TICKUS 

.-TICK FOR 6UHZ 

’00 

101 

102 

023404 

000207 


5*: 

RTS 

PC 

; RE TURN 

023406 



ST.PCLK 

. 



103 

023406 

032737 

000040 

001314 


'bit 

#SW05 , C . SWR 

.•ALLOW SOFTWARE TIMEOUTS? 

104 

023414 

001014 




BNE 

IS 

;N0— BRANCH 

105 

023416 

012777 

023504 

156104 


MOV 

#SRVCLK.BPKV 

.•SETUP THE KW11-P VECTOR 

106 

mi 

012777 

000300 

156100 


NOV 

#300,aPKV*2 


107 

012777 

000001 

156076 


NOV 

#i.aPKB 

.•COUNT ONE TICK 

.•"INT.EN. , COUNT DOWN". MODE 

108 

023440 

012777 

000115 

156066 


MOV 

#i15.aPKCs 

109 





.-"LINE FREQ”, AND *W* 

110 

111 

023446 

000207 


1$: 

RTS 

PC 

.•RETURN 


(REPEAT)", 
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112 023450 

113 023450 

114 023456 

115 023460 

116 023466 

117 023474 

118 023502 
1’9 

120 023504 

121 023510 

122 023514 

123 

124 

125 

126 

127 

128 

129 

130 023516 
023516 
023520 
023522 
023524 

131 023526 

132 023534 

133 023542 

134 023546 

135 023552 

136 023554 

137 023556 

138 023560 

146 023562 

147 023570 

148 023572 

149 023600 

150 023606 

151 023614 

152 023616 

153 023624 

154 023632 

155 023640 

156 023644 

157 023646 

158 023650 

159 023654 

160 023656 

161 023662 

162 023664 

163 023670 

164 023672 
^65 023674 

166 023700 

167 023702 

168 023704 

169 023706 
VO 023712 
171 023714 


032737 000040 001314 
001011 

012777 023504 156054 

012777 000300 156050 
012777 000100 156044 
000207 

013746 001344 
004737 035034 
000002 


ST.LCLK: 


010046 

010146 

010246 

010346 

012737 

012737 

012700 

012701 

010102 

012021 

020002 

103775 

032737 

001012 

012737 

012737 

012737 

000411 

012737 

012737 

012737 

012701 

005711 

001425 

032731 

001773 

016102 

011246 

012703 

006216 

103002 

062702 

005303 

001372 

005726 

021237 

101754 

013712 


SRVCLK: NOV 
JSR 
RTI 


#SW05,C.SWR 

1 $ 

#SRVCLK.8LKV 

#300,8LKV*2 

#ioo,aus 

PC 

TICKMS.-(SP) 

PC.RMTMR 


; ALLOW SOFTWARE TINE OUTS? 

; NO— -BRANCH 

.•SETUP THE KW11-L VECTOR 

.-START THE KW11-L 
.•RETURN 

.TINE PER TICK IN NILLISECONDS 
.•COUNT THE ELASPED TiNE 
.•RETURN AFTER INTERRUPT 


THIS ROUTINE SETS UP DEFAULT PARANETER VALUES WHEN THE PROGRAM IS 
STARTED OR WHEN THE VALUE OF BITOO IN 'C.SWR' IS CHANGED. 

CALL 

JSR PC.LODFLT 
RETURN 


LODFLT: 


013377 001332 

000000 001334 
002456 
002726 


000001 001314 


000036 

000036 

160400 

000035 

000035 

161000 

002352 


000400 

177776 

000011 


000002 


002426 

002426 


002426 

002430 

001452 

002426 

002430 

001452 


NOV RO. -(SP> ;;F 
NOV RI.-(SP) ;;f 
NOV R2,-(SP> ::t 
NOV R3.-(SP) ;;f 
NOV #13377,TSTNNS ;SI 
NOV #0,TSTNMS*2 ;SI 
NOV #DFLT.RO ;DI 
NOV #PRN0.R1 ;T/ 
NOV R1.R2 ;S 
NOV (R0)+.(R1>+ ;«( 
CM P R0.R2 ;RI 
BLO IS ;NI 
BIT #BITOO. C.SWR ;1i 
BNE 3$ ;Bi 
NOV #30. .PRMLNT+16 ;SI 
NOV #30. .PRNLNT+20 ;SI 
NOV #-<256 . *31 . > , TRCKWi 
BR 4$ ; Cl 
MOV #29..PRNLMT»16 ;SI 
NOV #29. .PRNLHT+20 ;SI 
NOV #-<256 . *30 . > , TRCKW 
NOV #PRMPT.R1 ;AI 
TST (R1) ;EI 
BEQ 8S ;Bi 
BIT #BIT08.d<R1>* ;'l 
BEQ 5$ ;Bi 
NOV -2(R1).R2 ;P< 
NOV (R2).-(SP) ;P 
MOV #9. .R3 ;N 
ASR (SP) ;C 
BCC 7$ ;B 
ADD #2.R2 ; II 
DEC R3 ;C 
BNE 6S ;B 
TST (SP)+ ;C 
CNP (R2J.PRNLNT+16 ;1 
BLOS 5$ ;8 
NOV PRMLMT*16.(R2> ;R 


.-PUSH RO ON STACK 
.-PUSH R1 ON STACK 
.-PUSH R2 ON STACK 
.•PUSH R3 ON STACK 

SELECT TESTS 0-7CSEEK) AND 11.12 l 14CTIHING) 
SELECT TESTS 

DEFAULT PARAMETERS POINTER 
TABLE POINTER 
STOP ADDRESS 

MOVE DEFAULT PARAMETERS INTO 
RUN TIME TABLES ** DONE? 

NO— BRANCH 
16 BIT MODE ? 

BR IF 18 8IT NODE 

SET •FS’ LIMIT TO 30. 

SET *LS* LIMIT TO 30. 

WC ;WORD COUNT FOR A 16 BIT TRACK 
CONTINUE 

SET *F S’ LIMIT TO 29. 

SET 'LS* LIMIT TO 29. 

WC .'WORD COUNT FOR AN 18 BIT TRACK 
ADDRESS OF PARAMETER POINTER TABLE 
END OF THE TABLE ? 

BR IF END 
•LS' SELECTED ? 

BR IF NOT 

PARAMETER TABLE ADDRESS 

PARAMETER ALLOCATION BITS 

NUMBER OF PARAMETERS (MAXIMUM) BEFORE 'LS' 

COUNT THE PARAMETER 

BR IF NOT USED 

INCREMENT THE PARAMETER TABLE ADDRESS 

COUNT THE PARAMETER 

BR IF NOT THERE YET 

CORRECT THE STACK POINTER 

IS 'LS* TOO LARGE rOR THE NODE SELECTED ? 

BR IF NOT 

RESET VALUE FOR NODE USED 


j 
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172 

173 


023720 
023722 
023722 
02372** 
023726 
023730 

1 74 023732 

175 

176 

177 

178 

179 

180 
181 

182 023734 
023734 
023736 
023740 

183 023742 

184 023744 

185 023750 

186 023752 

187 023756 

188 023762 

189 023766 

190 023770 

191 023774 

192 023776 

193 024000 

194 024002 

195 024004 

196 024010 

197 024012 

198 024020 

199 024022 
024022 
024024 
024026 

200 024030 

201 
202 

203 

204 

205 

206 
207 


000751 

012603 

01260 ? 

012601 

012600 

000207 


010146 

010246 

010446 

005004 

113704 

006304 

016401 

012702 

013704 

012122 

006237 

103002 

012122 

000401 

005022 

022702 

C01404 

013737 

000763 

012604 

012602 

012601 

000207 


8S. 


BR 

5$ 

MOV 

(SP)*, R3 

MOV 

(SP)*,R2 

MOV 

<SP)*,R1 

MOV 

<SP>+. RO 

RTS 

PC 


.•CONTINUE 


; ; POP STACK 
; ;POP STACK 


INTO R3 
INTO R2 
;-;-POP STACK INTO R1 
;;POP STACK INTO RO 
; RE TURN 


THIS ROUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST. 

CALL MOV #TESTNUM.$TSTNM .‘LOAD THE TEST NUMBER 

JSR PC.LODPRM 


LODPRM: 


001116 

002352 

002320 

001352 

002320 


002346 

002422 


001374 


IS: 


2S: 

3S: 


4$: 


RETURN 


MOV 

MOV 

MOV 

CLR 

M0V8 

ASL 

MOV 

MOV 

MOV 

MOV 

ASR 

BCC 

MOV 

BR 

CLR 

CMP 

BEQ 

MOV 

BR 

MOV 

MOV 

MOV 

RTS 


R1.-CSP) 

R2.-(SP) 

R4,-(SP) 

R4 

STSTNM.R4 

R4 

PRMPT (R4) ,R1 
#PRM,R2 
CHKDRV.R4 
<R1H,<R2> + 

PRM 

2 $ 

<R1)*.(R2)* 

3S 

<R2)* 

PPAT+2.R2 

4$ 

PRMLMT+12.LSTRK 

IS 

(SPI+.R4 
(SP)*,R2 
(SP)*. R1 
PC 


PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R4 ON STACK 
CLEAR R4 

GET THE TEST NUMBER 

SETUP TO ADDRESS WORDS 

GET THE TEST'S PARAMETER TABLE ADDRESS 

PARAMETER EXECUTION TABLE 

GET DRIVE ADDRESS 

LOAD PARAMETER SPECIFIER 

IS THIS PARAMETER USED IN THE TEST ? 

BR IF NOT 

LOAD THE VALUE 

CONTINUE 

CLEAR THE UNUSED PARAMETER LOCATION 
FINISHED ? 

BR IF YES 

GET LAST TRACK FOR AN RM80 
KEEP GOING 


;;POP STACK INTO R4 
;;POP STACK INTO R2 
;;POP STACK INTO R1 
.•RETURN 


THIS ROUTINE LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND 
INTO DP8.B+2 AND DP8.C+2. DEPENDING ON THE STATE OF "CONTROL SWITCH 
8IT07. 

CALL 

JSR PC.LDCMD 
RETURN 


208 

209 024032 

032737 

000200 

001314 

LDCMD: 

210 024040 

211 024042 

001007 

012737 

000173 

036532 


212 024050 

012737 

000173 

036554 


213 024056 

214 024060 

000406 

012737 

000105 

036532 

IS: 

215 024066 

012737 

000105 

036554 

2S: 

.THIS 

216 024074 

217 

218 

000207 




BIT #SW07.C.SWR 
BNE IS 

MOV #READHD,DPB.B+i 
MOV #RE ADHD, DPB.C+2 
BR 2$ 

MOV #SEEK,DP8.8*2 
MOV #SEEK,DPB.C*2 
RTS PC 


;D0 EXPLICIT SEEKS? 

; YES-BRANCH 

; NO— SET UP FOR READ HEADER AND 
;DATA COMMAND 

.•SETUP FOR SEEK COMMAND 


.-THIS ROUTINE WILL CALL THE RH80 DRIVER AND THEN WAIT ON THE FUNCTION 
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219 

220 
221 
222 
m 

224 


024076 

005037 

001222 


CALL. A: 

CLR 

024102 

004037 

032054 



JSR 

024106 

036506 




DPB. A 

024110 

000772 




BR 

024112 

005737 

036524 


IS: 

TST 

024116 

001775 




BEO 

024120 

100050 




BPL 

024122 

012737 

024216 

00 ^222 


MOV 

024130 

013737 

036520 

001366 


MOV 

024136 

113737 

036517 

001372 


movb 

024144 

113737 

036516 

001370 


M0V8 

024152 

012746 

036524 



MOV 

024156 

004737 

025062 



JSR 

024162 

062607 




ADD 

024164 

104041 




EMT 

024166 

104042 




EMT 

024170 

104043 




EMT 

024172 

104044 




EMT 

024174 

000240 




NOP 

024176 

005737 

036654 



TST 

024202 

001004 




BNE 

024204 

032737 

100000 

036702 


BIT 

024212 

001007 




BNE 

024214 




2S: 


024214 

104045 




EMT 

024216 

032737 

040000 

036702 

3S: 

BIT 

024224 

001402 




BEO 

024226 

004037 

024710 



JSR 

024232 

013746 

036524 


4S: 

MOV 

024236 

004737 

025022 



JSR 

024242 

000200 



5S: 

RTS 


263 

264 


TO COMPLETE. IF AN ERROR OCCURS IT IS REPORTED. 

vALL FILL '•DP8‘' WITH COWAND INFORMATION 
JSR RO.CALL.A 
RETURN 

IE SCAPE ;N0 ESCAPE ADDRESS 
R0.RM80 .-CALL RM80 DRIVER 


CALL. A 
DP8.A+16 

1 $ 

5* 

#3S,SESCAPE 

DP8.A+12.CYL.DS 

DP8.A+11 .TRK.DS 

DP8.A+10.SEC.DS 

#DPB.A*16.-(SP> 

PC.ERINDX 

(SP)*.PC 

41 

42 

43 

44 


DONE? 

NO— LOOP 

BRANCH IF NO ERROR 

.'ESCAPE TO 3$ ON ERROR 

CYLINDER 

TRACK 

SECTOR 

STATUS/ERROR INDICATOR ADDRESS 
FORM DISPATCH INDEX 
REPORT PROPER ERROR 
NON-EXIST DRIVE 
PORT TIMEOUT 
UNSAFE ERROR 


NON-I/O ERROR 

TO SYNC THE CALLING SEQ OF ERINDX 
RM.REG+RMER1 .'ANY DRIVE ERROR 

2$ : BRANCH IF SO 

#8SE.RM.REG+RMERZ .'BAD SPOT ERROR 

41 .‘BRANCH IF SO 


c 41 


2 46 
24 7 

248 

249 

250 

251 
^52 

253 

254 

255 024244 

256 024250 

257 024254 

258 024260 

259 024262 

260 024264 

261 024270 

262 024272 
024274 
024302 
024310 


45 

#SKI,RM.REG*RMER2 
4$ 

RO.CALL.R 
DP8.A*16,-(SP) 
PC.LOP.CK 
RO 


;SKI ERROR ? 

BR IF NO 

DO RECALIBRATE COMMAND 
STATUS WORD 

SEE IF LOOP. ABORT. OR CONTINUE 
RETURN 


005037 

005037 

00403? 

036530 

000770 

005737 

001775 

100055 

012737 

013737 

113737 




FILL DPB 
JSR 

; RETURN 

001222 


CALL.B: CLR 

036550 


CLR 

032054 


JSR 

DPB. 8 

BR 

036546 


IS: TST 



BEO 



BPL 

024400 

001222 

MOV 

036542 

001366 

MOV 

036541 

001372 

MOVB 


THIS ROUTINE IS THE SAME AS "CALL. A" EXCEPT FOR THE DPB USED AND IF 
THE COMMAND IS A READ HEADER AND DATA THE HEADER (CYLINDER. TRACK. 
AND SECTOR) READ IS CHECKED FOR VALIDITY. 

CALL 


RO.CALL.B 


SESCAPE 

DP8.8+SSSEN8 

R0.RM80 

CALL.B 
DPB. 8+16 
IS 
5$ 

#31. IE SC APE 
DPB. 8*12, CYL.DS 


NO ESCAPE ADDRESS 
CLEAR SKIP SECTOR 
CALL RM80 DRIVER 


ENABLED INDICATOR 


DP8.8+11 .TRK.DS .'TRACK 


.DONE? 

;N0 — BRANCH 
.‘BRANCH IF NO ERROR 
.'.’ESCAPE TO 31 ON ERROR 
.CYLINDER 



K 9 


SEO OIK 


C2RNGAO RH80 FCTNL PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 32-5 
DOUBLE PRECISION DIVISION SUBROUTINE 


265 


274 

275 


024316 
024324 
024330 
024334 
024336 
024340 
024342 
024344 
__ 024346 

266 024350 

267 024354 

268 024356 

269 024364 

270 024366 

271 024374 

272 024376 

273 024400 
024406 
024410 

276 024414 

277 024420 

278 024424 

279 024426 

280 024434 

281 024436 

282 024442 
?R3 024444 

024446 
-3 024454 

286 024456 

287 024462 

288 024464 

289 

290 

291 

292 

293 

294 

295 

296 024466 

297 024472 

298 024476 

299 024502 
024504 
024506 
024512 

303 024514 

304 024516 

305 024524 
024532 
024540 
024546 
024552 
024556 
024560 
024562 
024564 


300 

301 

302 


113737 

012746 

004737 

062607 

104041 

104042 


036540 

036546 

025062 


001370 


N0V8 

NOV 

JSR 

ADD 

ENT 

ENT 

ENT 


DP8.BH0.SEC.DS 
#DP8.BH6,-(SP) 
PC.ERINDX 
(SPH.PC 
41 


2 $ 


RT. 


SECTOR 

STATUS/ERROR INDICATOR ADDRESS 
FORN DISPATCH INDEX 
REPORT PROPER ERROR 
NON-EXIST DRIVE 
PORT TINEOUT 
UNSAFE ERROR 
NON-I/O ERROR 

TO SYNC THE CALLING SEO OF ERINDX: 
DRIVE ERROR ? 

BR IF NOT 

;SEE IF ONLY ’HCE' SET 
BR IF YES 

;BAD SPOT ERROP 
.’BRANCH IF SO 

;SKI ERROR ? 

Bp Jf J^Q 

DO RECALIBRATE CONNAND 
STATUS WORD 

SEE IF LOOP. ABORT. OR CONTINUE 
CHECK FOR STALL 
DOING IMPLIED SEEKS? 

NO— BRANCH 

YES— GO CHECK THE DATA 

ERROR DURING VERIFY 
STALL? 

NO— BRANCH 

YES— CALL STALL ROUTINE 
STALL TINE POINTER 
RETURN 

THIS ROUTINE IS THE SANE AS "CALL. S'* EXCEPT FOR THE DP8 USED. 

CALL 


NO ESCAPE ADDRESS 

CLEAR SKIP SECTOR ENABLED INDICATOR 
CALL RM80 DRIVER 


104044 




ENT 

44 

000240 

005737 

036654 



NOP 

TST 

RN.REG+RNER1 ; 

001404 

022737 

000200 

036654 


BED 

CMP 

#HCE.RM.REG+RNER^ 

001420 

032737 

100000 

036702 

2 S: 

BED 

BIT 

*bse.rm.reg+rner£ 

001033 




BNE 

7$ 

104045 




ENT 

45 

032737 

040000 

036702 

3$: 

BIT 

ASKI .RN.REG+RMER2 

001402 




BEQ 

4$ 

004037 

024710 



JSR 

RO.CALL.R 

013746 

036546 


4$: 

fiOV 

DP8.B+16.-(SP> 

004737 

025022 



JSR 

PC.LOP.CK 

000410 




BR 

6$ 

123727 

036532 

000173 

5$: 

CMP8 

DP8.8+2.AREADHD 

001004 




BNE 

6$ 

004037 

025302 



JSR 

RO, VERIFY 

036540 



DPS. 8*10 

000407 




BR 

7* 

032737 

040000 

001314 

6$: 

BIT 

fSWU.C.SWR 

001403 




BEQ 

7* 

004037 

025220 



JSR 

RO. STALL 

001454 




.WORD 

STALL1 

000200 



7S: 

RTS 

RO 






FILL DP8 





JSR 

RETURN 

RO.CALL.C 

005037 

001222 


CALL . C : 

CLR 

SE SCAPE 

005037 

036572 



CLR 

DP8.C+SSSENB 

004037 

032054 



JSR 

R0.RM80 

036552 




DP8.C 


000770 




BR 

CALL.C 

005737 

036570 


1$: 

TST 

DP8.C+16 

001775 




BEQ 

IS 

100055 




BPL 

5$ 

012737 

024622 

001222 


MOV 

#3$. JE SC APE 

013737 

056564 

001366 


NOV 

DP8.CH2.CYL.DS 

113737 

036563 

001372 


nova 

DP8.C+11 .TRK.DS 

113737 

036562 

001370 


N0V8 

DP8.CH0.SEC.DS 

#DPB.CH6.-(SP> 

012746 

036570 



NOV 

004737 

025062 



JSR 

PC, ERINDX 
<SP)*,PC 

41 

062607 

104041 




ADD 

ENT 

104042 




ENT 

4 2 

104043 




ENT 

43 


DONE? 

NO— LOOP 

YES— BRANCH IF NO ERROR 

.’ESCAPE TO 3$ ON ERROR 

CYLINDER 

TRACK 

SECTOR 

STATUS/ERROR INDICATOR ADDRESS 
FORN DISPATCH INDEX 
REPORT PROPER ERROR 
NON-EXIST DRIVE 
PORT TINEOUT 
UNSAFE ERROR 


L 
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44 

RM.REG+RMER1 

2 $ 

#HCE,RM.REG*I 
5$ 

#8SE,RM.REG*I 
7$ 

45 


L 9 


SEQ 0115 



024566 

104044 




EMT - 

306 

307 

024570 

024572 

000240 

005737 

036654 



NOP 

TST 1 

308 

024576 

001404 


036654 


BEQ i 

309 

024600 

022737 

000200 


CMP i 

310 

024606 

001420 


036702 

2S: 

BEQ ! 

311 

024610 

032737 

100000 

BIT i 

312 

024616 

001033 




BNE 

313 

024620 

104045 




EMT - 

314 

024622 

032737 

040000 

036702 

3$: 

BIT i 

315 

024630 

001402 




BEQ 

316 

024632 

004037 

024710 


4$: 

JSR 1 

317 

024636 

013746 

036570 


MOV 1 

318 

024642 

004737 

025022 



JSR 1 

319 

024646 

000410 


000173 


BR < 

320 

024650 

123727 

036554 

5$: 

CMP8 1 

321 

024656 

001004 




BNE < 

322 

024660 

00*037 

025302 



JSR 1 

323 

024664 

036562 




DP8.C+10 

324 

024666 

000407 




BR 

325 

n 24670 

032737 

040000 

001314 

6S: 

BIT 

326 

024676 

001403 




BEQ 

327 

024700 

004037 

025220 



JSR 1 

328 

024704 

001454 



7$: 

.WORD 

329 

024706 

000200 



RTS 1 


NON-I/O ERROR 

TO SYNC THE CALLING SEQ Of ERINDX: 
DRIVE FRROR ? 

.BR IF NOT 

tl :SEE IF ONLY ’HCE ' SET 

;BR IF YES 

12 ;BAD SPOT ERROR ONLY ? 

.•BRANCH IF SO 


RT, 


;SKI ERROR ? 

*BR IF NO 

•DO RECALIBRATE COMMAND 
.•STATUS WORD 

.-SEE IF LOOP. ABORT. OR CONTINUE 


#SKI .RM.REG+RMER2 

4$ 

RO.CALL.R 
DP8.C*16.-(SP> 

PC.LOP.CK 
6 $ 

DPB.C*2,#READHD .-DOING IMPLIED SEEK? 

6S ;N0— EXIT 

RO. VERIFY ;YES— CHECK THE DATA 


7* 

#SU14,C.SWR 

7$ 

RO. STALL 
STALL 1 
RO 


.•ERROR DURING VERIFY 
.•STALL? 

; NO— BRANCH 

; YES— CALL STALL ROUTINE 
.•STALL TIME POINTER 


330 

425 


427 





; AND 

WAIT FOR T 

428 





.-CALL 


429 






JSR 

430 






RETURN 

431 







432 

024710 

005037 

001222 


CALL.R 

: CLR 

433 

024714 

004037 

032054 



JSR 

434 

024720 

036616 




DP8.R 

435 

024722 

000772 

036634 


IS: 

BR 

436 

024724 

005737 


TST 

437 

024730 

001775 




BEQ 

438 

024732 

100032 




BPL 

439 

024734 

012737 

025010 

001222 


MOV 

440 

024742 

013737 

036630 

001366 


MOV 

024750 

113737 

036627 

001372 


M0V8 


024756 

113737 

036626 

001370 


hovb 


THIS ROUTINE WILL ISSUE A RECALIBRATE COMMAND TO THE RM80 DRIVER 


024764 

024770 

024774 

024776 

025000 

025002 

025004 

441 025006 

442 025010 

443 025014 

444 025020 

445 

446 


012746 
004737 
062607 
104041 
104042 
104043 
104044 
000240 
Cl 3746 
004737 
000200 


036634 

025062 


036524 

025022 


2S: 

3$: 


MOV 

JSR 

ADD 

EMT 

EMT 

EMT 

EMT 

NOP 

MOV 

JSR 

RTS 


RO.CALL.R 


SESCAPE 

R0.RM80 

CALL.R 

DP8.R+16 

1 $ 

3$ 

#2$, SESCAPE 

DPB.R*12,CYL.DS 

DP8.R+11 .TRK.DS 

DP8.R+10.SEC.DS 

#DP8.R*16.-(SP> 

PC .ERINDX 

(SPT+.PC 

41 

4 2 

43 

44 

DP8.A*16.-(SP> 

PC.LOP.CK 

RO 


;N0 ESCAPE ADDRESS 
.-CALL RM80 DRIVER 


DONE? 

NO— LOOP 

BRANCH IF NO ERROR 

.'ESCAPE TO 2$ ON ERROR 

CYLINDER 

TRACK 

SECTOR 

STATUS/ERROR INDICATOR ADDRESS 

FORM DISPATCH INDEX 

REPORT PROPER ERROR 

NON-EXIST DRIVE 

PORT TIMEOUT 

UNSAFE ERROR 

NON-I/O ERROR 

TO SYNC THE CALLING SEO OF ERINDX 
STATUS WORD 

SEE IF LOOP, ABORT, OR CONTINUE 
RETURN 


.•THIS SUBROUTINE CHECK FOR LOOP. ABORT, OR CONTINUE SWITCHES AFTER 



M 9 


SEQ 0116 


CZRNGAG RM80 FCTNL PT4 MACRO V04.00 15- JAN-82 07:05:59 PAGE 32-7 
DOUBLE PRECISION DIVISION SUBROUTINE 


447 

448 

449 

450 

451 

452 

453 025022 

454 025030 

455 025032 

456 025036 

457 025042 

458 025050 

459 

460 025052 

461 025056 

462 025060 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 025062 

480 025064 

481 025066 

482 025072 

483 025076 

484 025100 

485 025102 

486 025104 

487 025106 

488 025110 

489 025112 
025114 
025116 

492 025120 

493 02>122 

494 025124 

495 025126 

496 025130 

497 025132 

498 025134 

499 025136 

500 025140 

501 025142 
5C2 025144 
503 025152 


490 

491 


032777 

001402 

000177 

005037 

032766 

001402 

000137 

012616 

000207 


ERRORS 41, 42. 43, 44, 45, AND 46. 

CALL MOV DTA*16.-(SP) .-STATUS WORD FROM DPB IN USE 

JSR PC.LOP.CK 

RETURN 


001000 154124 LOP.CK: 


154066 

001222 

072006 


015142 


000002 


1 $: 


2 $: 


BIT 

BEQ 

JMP 

CLR 

BIT 

BEQ 

JMP 

MOV 

RTS 


ISW9.8SWR 

1$ 

iSLPERR 
SESCAPE 


LOOP ON ERROR 
BR IF NOT 

START AT THE LOOP ADDRESS 
CLEAR ERROR ESCAPE FLAG 


*8IT14!BIT13!BIT12!BIT10!BIT02!BIT01,2(SP) 


; CHECK ERROR TYPE 


2 $ 

$EOP 

(SP)*,(SP> 

PC 


BR IF DRIVE NOT OFFLINE, UNLOADED, OR 
PERSISTENT UNSAFE OR FATAL MASSBUS PARITY 
TERMINATE DRIVE 
ADJUST RETURN ADDRESS 


THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO DISPATCH 
TO THE PROPER ERROR CALL. THE INDEX IS FORMED BY EXAMINING 
THE STATUS/ERROR INDICATOR OF THE APPLICABLE DPB. 


INDEX 


010046 

010146 

016600 

011037 

005001 

032710 

000402 

001037 

032710 

000004 

001033 

032710 

040020 

001027 

032710 

000040 

001023 

032710 

000100 

001017 

032710 

001000 

001420 

122760 

003011 


0 

2 

4 

6 

10 

CALL 


ERINDX: 


STATUS/ERROR 

BIT o5 ! B I T01 
BIT02 

8IT14IBIT04 

BIT05 t <BIT09! COMMAND 

BIT06 t <BIT09! COMMAND 


NON* I /0> 
I/0> 


000006 

001356 


000150 177762 


JSR 

JSR 

RETURN 

MOV 

MOV 

MOV 

MOV 

CLR 

BIT 

.WORD 

BNE 

BIT 

.WORD 

BNE 

BIT 

.WORD 

BNE 

BIT 

.WORD 

BNE 

BIT 

.WORD 

BNE 

BIT 

.WORD 

BEQ 

CMPB 

BGT 


#DP8*16,-(SP) 
PC, ERINDX 


RO.-(SP) 

RI.-(SP) 

6<SP),R0 

(RO).SVSTAT 

R1 

(PC)*. (RO) 
BIT08JBIT01 

5$ 

(PC)*,(R0) 

BIT02 

4$ 

(PC)*. (RO) 

BIT14?BIT04 

3$ 

(PC)*. (RO) 
BIT05 

2$ 

(PC)*,(RO) 

BIT06 

IS 

(PC)*,(RO) 

BIT09 

#150.-16(R0) 

2$ 


.-ADDRESS OF STATUS/ERROR INDICATOR 
;FORM INDEX 

.-INDEX IS ON THE STACK 

.-SAVE RO 
-SAVE R1 

•GET STATUS/ERROR INDICATOR POINTER 
.-SAVE THE STATUS/ERROR INDICATOR 
.-START INDEX AT ZERO 
.-FORM INDEX OF 0? 

; YES— BRANCH 

.-FORM PARITY ERROR OR PORT REQUEST INDEX (2)? 

; YES— BRANCH 

.-FORM UNSAID INDEX (4)? 

; YES— BRANCH 

.-FORM NON-I/O ERROR INDEX (6)? 

; YES— BRANCH 

.-FORM I/O ERROR INDEX (10)? 

; YES— BRANCH 
.-SOFTWARE TIMEOUT? 

;N0— FORM INDEX OF 0 
; YES— I/O? 

;N0— BRANCH 
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SEO 0117 


504 0251 54 

505 025160 

506 025162 

507 025170 

508 025172 

509 025174 

510 025176 

511 025200 

512 025202 

513 025204 

514 025206 

515 025212 

516 025214 

517 025216 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 025220 

529 025222 

530 025230 

531 025232 

532 025236 

533 025242 

534 025246 

535 025250 

536 025256 

537 025260 

538 025264 

539 025266 

540 025272 

541 025274 

542 025276 

543 025300 

544 

545 

546 

547 

548 

549 

550 

551 

552 025302 

553 025304 

554 025306 

555 025314 

556 025320 

557 025326 

558 025330 

559 025336 

560 02534C 


005737 

001005 

032737 

001401 

005201 

005201 

005201 

005201 

005201 

006301 

010166 

012601 

012600 

000207 


013046 

032737 

001406 

004737 

013716 

042716 

005046 

162766 

103407 

012716 

005700 

005366 

001374 

000765 

022626 

000200 


036654 


TST 

BNE 

100000 036702 


BIT 

BEQ 

INC 


1$: 

INC 


2$: 

INC 


3$: 

INC 


4$: 

INC 


5$: 

ASL 

000006 


MOV 

MOV 

MOV 

RTS 


RM.REG+RMER1 .‘ANY DRIVE ERROR ? 

1$ 'BRANCH IF SO 

#8SE,RM.REG*RMER2 ;BAD SPOT ERROR 


1 $ 

R1 

R1 

R1 

R1 

Rl 

R1 

Rl ,6(SP) 
(SP)*.R1 
(SPH, RO 
PC 


BRANCH IF NOT 

SKIP . NOT REPORT BAD SPOT ERROR 
INDEX=10 — ERR0R=45 OR 46 
INDEX=6 — ERR0R=44 

INDEX=4 ERROR=43 

INDEX =2 — ERR0R=42 

INDEX=0 ERR0R=41 

RETURN INDEX TO USER 
RESTORE Rl 
RESTORE RO 
RETURN FROM CALL 


020000 001314 

022502 

022602 

177700 

000001 000002 
000144 
000000 


THIS ROUTINE HILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC 
AMOUNT OF TIME IF BIT13 OF C.SUR = 0 OR A RANDOM AMOUNT OF TIME 
IF BIT 13 OF C SUR = 1 

STALL1 CONTAINS SPECIFIED TIME FOR TESTS 0 - 7, AND STALL2 
CONTAINS THE TIME FOR TESTS 16-21. 

CALL 

JSR RO, STALL 

TIME POINTER ; WHERE TO FIND THE STALL TIME 

ITALL: MOV B(RO) + ,-(SP) .'PICKUP STALL TIME 

BIT RSW13. C.SUR ,'USE A RANDOM TIME? 

BEQ 1» ; NO-BRANCH 

JSR PC. SR AND ; YES— FORM RANDOM NUMBER 

MOV SLONUM.(SP) .'AND USE IT FOR THE STALL TIME 

BIC #*C77,(SP) ;BUT NEVER > 64 MILLISECONDS 

1$: CLR -(SP) .'CLEAR TEMP. LOCATION 

>S: SUB #1,2(SP) .'MORE STALL REQUIRED? 

BLO 4$ ; NO— BRANCH 

MOV #100..(SP) .'STALL FOR ABOUT 1 MILLISECOND 

IS: TST RO ;NOP TO KILL TIME 

DEC 0 (SP) .-COUNT 

BNE 3$ .'LOOP IF MORE COUNTS NEEDED 

BR 2$ 

;$: CMP <SP)*,(SP)+ .'CLEAN OFF THE STACK 

RTS RO .'EXIT 

ROUTINE TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS 
CALL 

JSR RO VERIFY 

ADR POINTED ; ADDRESS OF DP8+10 (SECTOR NUMBER) 

BR ??? .-ERROR RETURN 

RETURN 


010146 

012001 

0-2737 

111137 

023761 

001015 

123761 

001011 

005761 


170000 

025476 

043540 


043540 

000002 


043543 000001 
000010 


VERIFY: MOV 
MOV 
BIC 
M0V8 
CMP 
BNE 
CMP8 
BNE 
TST 


Rl .-(SP) 

(R0H.R1 

#170060,BUFFER 

(R1),6S 

BUFFER,2(R1) 


BUFFER+3,1 (RD 

2 $ 

SSSENB-IO(RI) 


SAVE Rl _ _ 

GET ADDRESS OF DPB+10 

STRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER 
SAVE EXPECTED SECTOR ADDRESS 
CYLINDER NUMBER OK? 

NO— BRANCH 

IS THE TRACK ADDRESS GOOD ? 

BR IF NO 

WAS SKIP SECTOR ENABLED ? 


B 10 
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561 

025344 

001402 


562 

025346 

105237 

025476 

563 

025352 

123737 

043542 

564 

025360 

001443 


565 

025362 

013737 

043540 

566 

025370 

113737 

043543 

567 

025376 

113737 

043542 

568 

025404 

113737 

025476 

569 

025412 

105721 


570 

025414 

112137 

001372 

571 

025420 

011137 

001366 

572 

025424 

012737 

025434 

573 

025432 

104012 


574 

025434 

012737 

000107 

575 

025442 

004037 

024076 

576 

025446 

005037 

001222 

577 

025452 

032777 

001000 

578 

025460 

001403 


579 

025462 

013700 

001124 

580 

025466 

000401 


581 

025470 

005720 


582 

025472 

012601 


583 

025474 

000200 


584 




585 

025476 

000000 


586 




587 




588 




589 




590 




591 




592 




593 




594 




595 

025500 

005001 


596 

025502 

005037 

177776 

597 

025506 

012777 

033526 

598 

025514 

013704 

031366 

599 

025520 

012764 

"00040 

600 

025526 

005037 

036604 

601 

025532 

005037 

036606 

602 

025536 

012737 

000107 

603 

025544 

005037 

001222 

604 

025550 

004037 

032054 

605 

025554 

036574 


606 

025556 

000440 


607 

025560 

005737 

03661? 

6 08 

025564 

001775 


609 

025566 

100030 


610 

025570 

012737 

025644 

611 

C25576 

013737 

036606 


025604 

113737 

036605 


025612 

*13737 

036604 


025620 

012746 

036612 


C25624 

004737 

025062 


025630 

062607 



025632 

104041 





BEO 

IS 

BR IF NO 



INCB 

6S 

INCREMENT EXPECTED SECTOR ADDRESS BY 1 

025476 

IS: 

CMP8 

BUFFER+2.6S 

IS THE SECTOR ADDRESS GOOD ? 



BEQ 

4S 

BR IF YES 

001360 

2$: 

(10V 

BUFFER, CYL.RD 

GET RECIEVED SECTOR ADDRESS 

001362 


MOVB 

BUFFERt3.TRK.RD 

" TRACK 

001364 


HOVB 

BUFFER+2.SEC.RD 

" CYLINDER " 

001370 


MOVB 

6S.SEC.DS 

GET EXPECTED SECTOR ADDRESS 



TST8 

(Rl)t 

ADJUST R1 POINTER 



MOVB 

(R1)*,TRK.DS 

GET EXPECTED TRACK ADDRESS 



MOV 

(RD.CYL.DS 

" CYLINDER " 

001222 


MOV 

*3S, SESCAPE 

.‘ESCAPE TO 3S ON ERROR 



EMT 

12 


036*: 10 

3$: 

MOV 

#RECAL,DPB.A*2 

LOAD RECALIBRATE ORDER CODE 



JSR 

RO.CALL.A 

GO EXECUTE THE COMMAND 



CLR 

SESCAPE 

CLEAR ERROR ESCAPE FLAG 

153474 


BIT 

#SW9,aSWR 

LOOP ON ERROR ? 



BEO 

4S 

BR IF NOT 



MOV 

SLPERR.RO 

RETURN TO ERROR LOOP ADDRESS 



BR 

5$ 



4$: 

TST 

(R0) + 

INCREMENT RETURN ADDRESS 


5$: 

MOV 

(SP)t.RI 

RESTORE R1 



RTS 

RO 

EXIT 


6$: 

.WORD 

0 

TEMPORARY STORAGE FOR EXPECTED SECTOR ADDRESS 


THIS ROUTINE WILL PERFORM A ‘KASSBUS" INIT. FOLLOWED BY 
A ‘RECALIBRATE" ON THE DRIVE UNDER TEST. 

NOTE: THIS ROUTINE DESTROYS R1 AND R4 



.‘CALL 






JSR 

RO, SRCHOO 

DO A MASS8US INIT. AND RECAL 



RETURN1 


RETURN HERE IF NO ERROR 



RETURN2 


RETURN HERE ON ERROR 


SRCHOO: 

CLR 

R1 

INCASE OF ERROR (TYPTIM) 



CLR 

PS 


003654 


MOV 

IISR.3RMVEC 

SETUP INTERRUPT VECTOR 



MOV 

RMADR.R4 

PICKUP ADDRESS OF RMCS1 

000010 


MOV 

#CLR,RNCS2(R4) 

MASSBUS INIT. 



CLR 

DTADPB+10 

TRACK=0 t SECTORS 



CLR 

DTADPBM2 

CYLINDER =0 

036576 


MOV 

#RECAL,DTADPB*2 

COMMAND = RECALIBRATE 



CLR 

SESCAPE 

NO ESCAPE ADDRESS 



JSR 

R0.RM80 

CALL THE DRIVER 



DTADP8 


DPB POINTER 



BR 

4$ 

QUEUE IS FULL 


1$: 

TST 

DTADP8+16 

WAIT ON DONE 



BEO 

1$ 




BPL 

3$ 

TAKE NORMAL EXIT IF NO ERROR 

001222 


NOV 

#2$, SESCAPE 

; ESCAPE TO 2S ON ERROR 

001366 


MOV 

DTADPB+12.CYL.DS 

.•CYLINDER 

001372 


MOVB 

DTADPB^II.TRK.DS 

; TRACK 

001370 


MOVB 

DTADPB+IO.SEC.DS 

.‘SECTOR 



MOV 

#DTADPBt16.-(SP) 

.•STATUS/ERROR INDICATOR ADDRESS 



JSR 

PC.ERINDX 

FORM DISPATCH INDEX 



ADD 

(SP)t.PC 

•REPORT PROPER ERROR 



EMT 

41 

•NON-EXIST DRIVE 


SEA 0118 



SEQ 0119 
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025634 104042 

025636 10 4 043 
02564C 104044 
0ij642 104045 

025644 0C5720 
025646 0004 04 
025650 005064 000006 
025654 005064 000034 
025660 000200 


C 10 


612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 
'26 
o27 
628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 


025662 000002 


025664 
025666 
025672 
025674 
025700 
025702 
025706 
025714 
025722 
025 72' 



EMT 

42 


EMT 

43 


EMT 

44 


EMT 

45 

2S: 

TST 

<R0>* 

BR 

4$ 

3$: 

CLR 

RMDACR4) 


CLR 

RMDCCR4) 

4$: 

RTS 

RO 

.-THIS 

IS 4N RTI 

WHICH IS USED 

DORTI: 

RTI 



PORT TIMEOUT 
JNSAFE ERROR 
NON-I/O ERROR 
I/O ERROR 

ADJUST FOR ERROR EXIT 
GO TO THE EXIT 
TRACK AND SECTOR = 0 
CYLINDER = 0 
RETURN 


.•RETURN FROM INTERRUPT 





JSR 

; RETURN 

104412 



STRTMR: SAVREG 

012700 

001376 


MOV 

005020 



IS: CLR 

020027 

001432 


CMP 

103774 



BLO 

012710 

043540 


MOV 

012737 

077777 

001376 

MOV 

012737 

077777 

001414 

MOV 

104413 


RESREG 

000207 



RTS 


THIS ROUTINE WILL INITIALIZE THE TIMERS USED BY THE ’TIMING ROUTINES 
CALL 


PC.STRTMR 


fTIM.UP.RO 
<R0) + 

RO.fTIM.PT 

1 $ 

fBUFFER.CRO) 

#*CBIT15.TIM.UP 

#*C8IT15,TIM.DN 

PC 


SAVE R0-R5 

INITIALIZE TIME TABLES 

CLEAR 

DONE? 

NO— BRANCH 

SETUP TIME TABLE POINTER 
SET MINIMUM TIME TO MAXIMUM 
POSITIVE NUMBER 
RESTORE R0-R5 
RETURN 


THIS ROUTINE WILL ADD THE ELAPSED TIME TO 
MAINTAIN THE MINIMUM AND MAXIMUM TIMES. 
NOTE: THIS ROUTINE DESTROYS R 2 
CALL 

MOV RTP.R3 

MOV FLA6.R5 


THE AVERAGE COUNTER AND 


025726 

012702 

001376 


COUNT: 

025732 

005705 




025734 

001402 




025736 

012702 

001414 


1$: 

025742 

027722 

153572 


025746 

002003 


177776 


025750 

017762 

153564 

2$: 

025 75o 

027763 

1^3556 

000004 

025764 

002001 




025766 

005212 



3$: 

025770 

005722 



025772 

027722 

153542 



025776 

003403 


177776 


026000 

017762 

153534 


026006 

027763 

153526 

000006 

4$: 

026014 

003401 




026016 

005212 





JSR 

RETURN 


TST 

BEQ 

MOV 

CMP 

BGE 

MOV 

CMP 

BGE 

INC 

TST 

CMP 

BLE 

MOV 

CMP 

BLE 

INC 


PC. COUNT 


#TIM.UP,R2 

R5 

1$ 

fTIM.DN.R2 

aPKC,(R2>+ 

2 * 

8PKC.-2CR2) 

3PKC,4(R3) 

3$ 

<R2) 

(R2) + 

aPKC.(R2>+ 

4$ 

iPKC,-2(R2) 

iPXC.6(R3) 

5$ 

(R 2) 


PARAMETER POINTER 
FLAG=0= COUNT UP 
FLAG=-1=C0UNT DOWN 


PICKUP THE ’\JP'' POINTER 
USE IT? 

YES— BRANCH 

NO— PICKUP DOWN POINTER 
LESS THAN PREVIOUS LOW? 

NO— BRANCH 
YES— SAVE IT 

LESS THAN THE LOW LIMIT? 

NO— BRANCH 

YES— COUNT IT 

ADVANCE THE POINTER 

GREATER THAN PREVIOUS HIGH? 

NO— BRANCH 

YES— SAVE IT 

GREATER THAN THE HIGH LIMIT? 
NO— BRANCH 
YES— COUNT IT 
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D 10 


SEQ 0120 


665 

026020 

005722 



5$: 

TST 

<R2> + 

ADVANCE THE POINTER 

666 

026022 

067722 

153512 



ADD 

8PKC,<R2>* 

ADD THIS COUNT TO THE TOTAL 

667 

026026 

005522 




ADC 

<R2>* 


668 

026030 

005212 




INC 

<R2> 

COUNT THIS READING 

669 

026032 

022737 

050044 

001432 


CMP 

A8UFFER*<4*561.> 

TIM.PT .-SAVE THIS COUNT? 

670 

026040 

101406 




BLOS 

6$ 

NO— BRANCH 

671 

026042 

017777 

153472 

153362 


MOV 

BPKC.BTIM.PT 

YES— WELL SAVE IT THEN 

672 

026050 

062737 

000002 

001432 


ADD 

A2.TIM.PT 

ADVANCE THE POINTER 

673 

026056 

00C207 



6$: 

RTS 

PC 

RETURN 

674 









675 





.-THIS 

ROUTINE 

PRINTS THE SPEC OF 

ALL TIMING TESTS 

676 





.CALL 




677 






JSR 

RO, SPTYP 


678 






TABLE 

ADDRESS 


679 









680 





•TABLE 

: .WORD 

ASCIZ MESSAGE POINTER 


681 

682 

683 

684 026060 

685 026062 

686 026070 

687 026072 

688 026076 

689 026102 

690 026106 

691 02o110 

692 026112 

693 0261 14 

694 026116 

695 026122 

696 026126 

697 026132 

698 026136 

699 026142 

700 026144 

701 026150 

702 026154 

703 C26160 

704 026164 

705 

706 

707 

708 

709 

710 

711 

71 2 

713 

714 

715 

716 

717 

718 

719 

720 

721 


012002 

032777 

001035 

1044C1 

104401 

012237 

104401 

000000 

012246 

001410 

104401 

004737 

004737 

104401 

104401 

011246 

004737 

004737 

104401 

104401 

000200 


000100 153064 

001231 

001231 

026110 


037674 

022212 

022442 

037716 

037702 

022212 

022442 

037716 

001231 


SPTYP: 


1 $: 


2 $: 


3$: 


.WORD 

.WORD 

MOV 

BIT 

BNE 

TYPE 

TYPE 

MOV 

TYPE 

.WORD 

MOV 

BEQ 

TYPE 

JSR 

JSR 

TYPE 

TYPE 

MOV 

JSR 

JSR 

TYPE 

TYPE 

RTS 


MIN VALUE 
MAX VALUE 

<R0)*.R2 

*SW06,aSWR 

3$ 

.SCRLF 

.SCRLF 

(R2J+.1S 


(R2)*,-(SP> 

2 $ 

.MSGMIN 

PC.SSB2D 

PC.SSUPRS 

.MSGOUS 

.MSGNAX 

<R2).-(SP) 

PC.SSB2D 

PC.SSUPRS 

.MSGOUS 

.SCRLF 

RO 


THE TABLE ADDRESS 
ALLOW PRINT 
EXIT IF NOT 


.-LOAD MIN VALUE 
.-SKIP IF MIN VALUE IS 0 

.•CONVERT TO DECIMAL 
.-TYPE IT 
;0 US 

.-MAXMUM VALUE 


; CR-LF 


.-THIS ROUTINE IS USED TO TYPE THE MINIMUM. 

MAXIMUM. AND AVERAGE TIMES FOR THE TIMING TESTS 
IT WILL ALSO CHECK THE TIMES TO ENSURE 
THEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES. 
CALL 

JSR RO.TYPTIM 
TABLE 
RETURN 

TABLE: MSGADR1 
MSGADR2 
MIN. ALLOWED 
MAX. ALLOWED 


;G0 REPORT THE TIMES 
.•POINT TO THE PROPER TABLE 


ADDRESS OF ASCIZ MESSAGE NUMBER 1 
ADDRESS OF ASCIZ MESSAGE NUMBER 2 
MINIMUM TIME ALLOWED 
MAXIMUM TIME ALLOWED 


„ZRRCAO RM8Q FCTNL PK MACRO V04.00 1 5-JAN-82 07:05:59 PA6E 32-12 
DOUBLE PRECISION DIVISION SUBROUTINE 


722 026166 
026166 
026170 
026172 
026174 

723 026176 

724 026200 

725 026206 

726 026210 

727 026214 

728 026216 

729 026220 

730 026222 

731 026226 

732 026230 

733 026232 

734 026236 

735 026240 

736 026244 
026246 
026252 

737 026256 

738 026262 

739 026264 

740 026266 

741 026272 
026276 
026302 

742 026306 

743 026312 
026314 
026320 

744 026324 

745 026330 

746 026334 
026336 
026342 

747 026346 

748 026352 

749 026354 

750 026356 

751 026362 
026366 
026372 

752 026376 

753 026402 
026404 
026410 

754 026414 

755 026420 

756 026424 

757 026426 

758 026430 

759 026432 

760 026436 

761 026440 

762 026442 


010246 

010346 

010446 

010546 

012002 

032777 

001154 

012237 

012205 

012203 

011202 

012704 

104401 

000000 

005764 

001536 

104401 

012446 

004737 

004737 

104401 

005724 

001421 

104401 

016446 

004737 

004737 

104401 

010346 

004737 

004737 

104401 

104401 

012446 

004737 

004737 

104401 

005724 

001421 

104401 

016446 

004737 

004737 

104401 

010246 

004737 

004737 

104401 

104401 

012446 

012446 

012446 

004737 

006126 

100001 

005216 


TYPTIM: 


000100 152746 
026230 


001376 


000014 

037674 

022212 

022442 

037716 


037160 

177776 

022212 

022442 

037723 

022212 

022442 

037716 

037702 

022212 

022442 

037716 


037160 

177776 

022212 

022442 

037752 

022212 

022442 

037716 

037710 


022604 


NOV R2.-CSP) 

NOV R3.-CSP) 

NOV R4,-(SP) 

NOV R5.-CSP) 

NOV <R0>+. R2 

BIT #SW06,aSWR 

BNE 9$ 

NOV (R2H.2S 

NOV (R2H.R5 

NOV <R2)+,R3 

NOV <R2>.R2 

NOV ATIN.UP.R4 

TYPE 

.WORD 0 

TST 14(R4) 

BEO 8$ 

TYPE .NSGMIN 

NOV <R4)+,-(SP) 

JSR PC,$S82D 

JSR PC.JSUPRS 

TYPE .NSGOUS 

TST <R4) + 

BEO 3S 

TYPE .COMMA 

NOV -2(R4)--(SP) 

JSR PC.JS82D 

JSR PC.SSUPRS 

TYPE .NBELDW 

NOV R3,-(SP) 

JSR PC.SS62D 

JSR PC.SSUPRS 

TYPE .NSGOUS 

TYPE .MSGNAX 

NOV (R4)*,-<SP) 

JSR PC.SSB2D 

JSR PC.SSUPRS 

TYPE .NSGOUS 

TST (R4> + 

BEQ 4$ 

TYPE .COMMA 

NOV -2(R4).-(SP> 

JSR PC.SSB2D 

JSR PC.SSUPRS 

TYPE ,NABOVE 

NOV R2,-(SP> 

JSR PC .SSB2D 

JSR PC.SSUPRS 

TYPE .NSGOUS 

TYPE .NSGAVG 

NOV <R4)+,-(SP) 

NOV (R4)*,-(SP> 

NOV (R4)*.-(SP> 

JSR PC.SDIV 

ROL (SP)* 

BPL 5S 

INC (SP) 


i 

i 


SEO O'c 


;PUSH R2 ON STACK 
; PUSH R3 ON STACK 
;PUSH R4 ON STACK 
;PUSH R5 ON STACK 
PICKUP THE TABLE POINTER 
INHIBIT TINE REPORTS? 

YES— BRANCH 

ADDRESS OF NESSAGE HUMBER 1 

ADDRESS OF NESSAGE NUNBER 2 

PICKUP THE LOW LIMIT 

AND THE HIGH LINIT 

PARAMETER POINTER 

TYPE THE NESSAGE 

ASCIZ MESSAGE POINTER GOES HERE 

DID ANY COUNTS OCCUR? 

NO— BRANCH 
‘NIN-" 

PUT <R4)+ ON THE STACK 
CHANGE TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 
’•0 US" 

ANY SEEKS BELOW THE LOW LINIT 
NO— BRANCH 
TYPE ” 

PUT -2<R 4) ON THE STACK 
CHANGE TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 
'BELOW THE MINIMUM OF" 

PUT R3 ON THE STACK 
CHANGE TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 
TYPE **0 US" 

*NAX=" 


PUT (R4)* ON THE STACK 
CHANGE TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 
TYPE “0 US" 

ANY SEEKS ABOVE THE HIGH LINIT 
NO— BRANCH 
TYPE " 

PUT 2(R4) ON THE STACK 
CHANGE TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 
"ABOVE THE MAXIMUM 0F r * 

PUT R2 ON THE STACK 
CHANGE TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 
TYPE 'V US" 

"AVG=" 

FORM THE AVERAGE 


IS THE REMAINDER OVER HALF? 
NO— BRANCH 
YES— ROUND UP 
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SEQ 0122 


763 026444 



5$: 



026*44 

004737 

022212 


JSR 

PC.SSB2D 

026450 

004737 

022442 


JSR 

PC.SSUPRS 

764 026454 

104401 

03/716 


TYPE 

.MSGOUS 

765 026460 

104401 

037160 


TYPE 

.COMMA 

766 026464 

016446 

177776 


MOV 

-2(R4).-(SP) 

026470 

004737 

022212 


JSR 

pc,ssb2d 

026474 

004737 

022442 


JSR 

PC.SSUPRS 

767 026500 

022737 

000011 001116 


CMP 

#1 l ,$TSTNM 

768 026506 

001403 



BEQ 

6$ 

769 026510 

104401 

040021 


TYPE 

.MSGSEK 

770 026514 

000402 



BR 

7$ 

771 026516 

104401 

040001 

6$: 

TYPE 

.MSGSCH 

772 

773 026522 

010537 

026230 

7$: 

MOV 

R5.2S 

774 026526 

001404 



BEO 

9$ 

775 026530 

005005 



CLR 

R5 

776 026532 

000635 



BR 

IS 

777 026534 

104401 

040036 

8$: 

TYPE 

.MSGNOT 

778 026540 



9$: 



026540 

012605 



MOV 

(SPI+, R5 

026542 

012604 



MOV 

(SPJ+.R4 

026544 

012603 



MOV 

<SP>+, R3 

026546 

012602 



MOV 

(SPJ+.R2 

779 026550 

000200 



RTS 

RO 


780 

781 

782 

783 

784 

785 

786 

787 

788 026552 

789 026556 

790 026560 

791 026564 

792 026570 

793 026572 

794 026576 

795 026600 

796 

797 

798 

799 


CHANGE TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 
TYPE 'Y> US” 

TYPE ", " 

PUT -2(R4) ON THE STACK 
CHANGE TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 
TEST 11 ? 

BRANCH IF SO 
TYPE '‘SEEKS TIMED" 

TYPE IT 

TYPE "SEARCH TIME" 

NEXT MESSAGE POINTER 
IF NONE EXIT 
NO MORE THAN 2 

TYPE 'MOT TIMED" 

;POP STACK INTO R5 
;POP STACK INTO R4 
;POP STACK INTO R3 
;POP STACK INTO R2 
EXIT 


THIS SUBROUTINE WILL INCREMENT THE TRACK 
NUMBER (R2) BY THE AMOUNT SPECIFIED BY ’IT'. 
CALL 





JSR 

RETURN1 

RETURN2 

RO, INCTRK 

020237 

002334 

INCTRK: 

CMP 

R2.LT 

001410 



BEO 

2$ 

063702 

002336 


ADD 

IT.R2 

020237 

002334 


CMP 

R2.LT 

003402 



BLE 

1$ 

013702 

002334 


MOV 

LT.R2 

(ROH 

005720 


IS: 

TST 

000200 


2*: 

RTS 

RO 


TRACK NUMBER GREATER THAN LT15 
TRACK NUMBER INCREMENTED 

LAST TRACK COMPLETED? 

YES— EXIT 
NO— UPDATE TRACK 
TRACK TO BIG? 

NO— EXIT 

YES— SET TRACK TO LAST TRACK 
ADJUST FOR RETURN 2 
RETURN 


THIS SUBROUTINE WILL INCREMENT THE CYLINDER 
NUMBER <R1) BY THE AMOUNT SPECIFIED BY '1C*. 


I 800 




.♦CALL 


801 




; JSR 

RO. INCCYL 

' 802 




; RETURN1 


803 




; RETURN2 


oOh 

i 805 

026602 

020137 

002326 

INCCYL : CMP 

R1.LC 

1 806 

026606 

001410 


BEO 

2$ 

807 

026610 

063701 

002330 

ADD 

IC.R1 

808 

026614 

020137 

002326 

CMP 

R1.LC 

809 

026620 

003402 


BLE 

IS 

810 

026622 

013701 

002326 

MOV 

LC.R1 

811 

026626 

005720 


1$: TST 

(ROH 


.♦CYLINDER NUMBER GREATER THAN LC15 
.♦CYLINDER NUMBER INCREMENTED 

.♦LAST CYLINDER COMPLETED? 

; YES— EXIT 

;N0— UPDATE CYLINDER 
.♦CYLINDER TO BIG? 

; NO— EXIT 

;YES— SET CYLINDER TO LAST CYLINDER 
.♦ADJUST FOR RETURN 2 
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G 10 


SEQ 0123 


812 

813 

814 

815 
316 

817 

818 

819 

820 
821 
822 
823 
829 
825 

1192 

’193 

1199 

1195 

1196 

1197 

1198 

1149 

1150 

1151 

1152 

1153 


1159 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1181 


026630 000200 


026632 

026690 

026644 

026646 

026654 


026656 

026664 

026666 

026672 

026714 

026714 

026720 

026724 

026730 

026732 

026734 

026742 

026746 


026750 

026754 

026756 

026760 


2S: 


RTS 


RO 


; RE TURN 


THIS ROUTINE DECREMENTS THE SECTOR ADDRESS. 
CALL 





; CLR 

-(SP> 




; JSR 

PC. DECSEC 




; RETURN 


113766 

036646 

000002 

DECSEC: MOVB 

RM.REG+RMDA.2(SP) 

005366 

000002 


DEC 

2CSP) 

100003 



BPL 

1$ 

013766 

002426 

000002 

MOV 

PRMLMT*16,2(SP> ; 

000207 



1$: RTS 

PC 


;PUT THE SECTOR ADDRESS ON THE STACK 
DECREMENT THE ADDRESS 
BR IF NOT CORRECTION NEEDED 
OVERFLOW OCCURED, FORCE TO MAXIMUM ADDRESS 
RETURN 


032777 

001430 

104401 

000410 


012703 

013704 

004037 

000771 

000240 

013737 

010437 

000207 


010337 

104401 

000000 

010446 


026756 


THIS ROUTINE IS USED TO INPUT THE "CONTROL SWITCHES". 

IF SWR<07>=1 THE PRESENT SETTING WILL BE TYPED AND THE NEW 
SETTING IS READ AND STORED. 

NOTE: THIS ROUTINE DESTROYS R3 AND R4 


;<C.SWR)=DESIRED CONTROL SWITCHES 


000200 152270 
026674 


036750 

001314 

026750 


001314 001320 
001314 


.'CALL 

; 

JSR 

PC.6ET5WR 

9 

RETURN 


GETSWR: 

BIT 

#SW07,9SWR 


BEQ 

20$ 


TYPE 

,65$ 


BR 

64$ 

;;65$: 

.ASCIZ 

<CRLF>/SET 

64$: 

10$: 

MOV 

IMS6.CS.R3 


20 $: 


MOV 

JSR 

BR 

NOP 

MOV 

MOV 

RTS 


C.SUR.R4 
R0.6ETNUM 

ioi 

C.SWR.SAVCSW 

R4.C.SWR 

PC 


;READ CONTROL SWITCHES? 
; NO— BRANCH 
;;TYPE ASCIZ STRING 
;;GET OVER THE ASCiZ 


"CONTROL SWITCHES 2 " 

PRESENT CONTROL SWITCH SETTINGS 
GET THE NEW SWITCH SETTINGS 

COMMA 

PERIO® 

SAVE PREVIOUS VALUE 
DOUBLE PERIOD-SAVE NEW SWITCH SETTING 
RETURN FROM CALL 


THIS ROUTINE WILL TYPE AN ASCIZ MESSAGE AND THEN 
INPUT AN ASCIZ STRING AND CHANGE THE STRING TO OCTAL 
IF REQUIRED. 

NOTE: THIS ROUTINE DESTROYS R1 


CALL 


MOV 

MOV 

JSR 

RETURN1 

RETURN2 

RETURN3 


GETNUM: MOV 
1$: TYPE 

2$: .WORD 

MOV 


#ADR,R3 
INUM.R4 
RO, GETNUM 


R3.2S 

0 

R4.-CSP) 


.ADDRESS OF ASCIZ MESSAGE 
.•OCTAL NUMBER 

INPUT TERMINATED WITH A 
WITH A PERIOD 
WITH A DOUBLE PERIOD 
R4=INPUT NUMBER AND 
R2=R4*32 FOR ALL 
THREE RETURNS 


SAVE MESSAGE POINTER 
TYPE THE MESSAGE 
MESSAGE POINTER GOES HERE 
.•SAVE R4 FOR TYPEOUT 


COMMA 
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SEQ 0124 


026762 

1182 026 7 64 

1183 026770 

1184 026772 

1 1 85 026774 
027000 
027002 
027004 
027006 
027010 
027012 

1186 027014 

1187 027016 
027016 
027022 
027024 
027026 
027030 

1188 027032 

1189 027034 

1190 027036 

1191 027040 

1192 027042 

1193 027044 

1194 027046 

1195 027050 

1196 027052 

1197 027054 

1198 027060 

1199 02706? 

1200 027064 

1201 027066 

1202 027070 

1203 027072 

1204 027074 

1205 027076 

1206 027100 

1207 027102 

1208 027104 

1209 

1210 

1211 

1212 

1213 

1214 

1215 027106 

1216 027110 

1217 027114 
027120 

027136 

1218 027136 

1219 027140 

1220 027142 
027146 
027150 
027152 


104402 

104401 036773 

104411 
012601 

004037 030644 

026754 

026754 

027016 

027042 

027050 

027014 

005301 


004037 

026754 

027036 

027034 

027032 

005720 

005720 

010204 

000414 

105711 

001343 

000411 

105711 

001406 

122721 

001335 

105711 

001333 

005720 

U05720 

010402 

000302 

006202 

006202 

006202 

000200 


031104 


000056 


:G0 TYPE— OCTAL ASCI I (ALL DIGITS) 
* / ' 

READ AN ASCIZ STRING 
ADDRESS OF FIRST CHARACTER 
CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 

tyti 
• t • « 

m'ii 

DIGIT 0-9 

DECREMENT THE INPUT POINTER 

CHECK THE NUMBER 
ILLEGAL INPUT 

TERMINATED WITH A *V OR "CR" 

TERMINATED WITH A 'V 

TERMINATED WITH A 

DOUBLE PERIOD 

SINGLE PERIOD 

COMMA— SAVE INPUT NUMBER 

GO TO EXIT 

TERMINATOR AFTER A COMMA? 

NO— LOOP 
YES— EXIT 

TERMINATOR AFTER A PERIOD? 

YES— EXIT 

NO— DOUBLE PERIOD? 

NO— LOOP 
YES— TERMINATOR? 

NO— LOOP 
DOUBLE PERIOD 
PERIOD 

COMMA— POSITION THE 
NUMBER IN CASE IT 
IS THE PRIORITY LEVEL 


RTS RO .'EXIT 

THIS ROUTINE IS USED TO CHAN6E OR MODIFY 

THE TEST PARAMETERS* IT GIVES THE OPERATOR 

THE CAPABILITY OF SPECIFYING WHICH DRIVES TO TEST. WHICH 
TESTS TO RUN AND HOW MANY TIMES TO REPEAT EACH TEST 



TYPOC 

TYPE 

.SLASH 


RDLIN 

MOV 

(SPJ+.R1 


JSR 

RO.CK.CHR 

3$: 

1$ 

1$ 

4$ 

8$ 

9$ 

3$ 

DEC 

R1 

4$: 

JSR 

RO.CK.NUM 

5$: 

1$ 

7$ 

6$ 

5$ 

TST 

(R0> ♦ 

6$: 

TST 

(RO)* 

7$: 

MOV 

R2.R4 

11$ 


BR 

8$: 

TSTB 

(R1 ) 


BNE 

1$ 


BR 

11$ 

9$: 

TSTB 

(R1 ) 


BEO 

10$ 


CMPB 

#’ . ,(R1)+ 


BNE 

1$ 


TSTB 

(R1) 


BNE 

1$ 


TST 

(ROH 

10$: 

TST 

(R0) + 

11$: 

MOV 

R4.R2 


SWAB 

R 2 


ASR 

R 2 


ASR 

R2 


ASR 

R2 


RTS 

RO 


104412 

005037 001330 
104401 027122 
000406 


104411 

012601 

004037 030644 


GT.PRM: SAVREG 
GT.PR1: CLR 
TYPE 
BR 

••65$: .ASCIZ 
64$: 


DRVSEL 

.65$ 

64$ 


<CRLF>/DRIVE(S)=/ 


.•SAVE RO - R5 
;N0 DRIVE SELECTED 
;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


027110 

027110 

027110 


RDLIN 

MOV 

JSR 

GT.PR1 

GT.PR1 

6T.PR1 


(SPM.R1 

RO.CK.CHR 


READ TTY 

ADDRESS OF ASCIZ STRING 
CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 

Mill 


SEO 0125 
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1221 


027154 
027156 
02716C 
027162 
1222 027164 
027164 
027170 
0271 74 
027176 
027200 
027202 


1223 


027 
027 

1224 027214 

1225 027216 
‘ 027 

0 


20 


1226 

1227 027224 

1228 027230 

1229 027232 

1230 027240 

1231 027242 

1232 

1233 027244 
027244 
027250 

027260 

1234 027260 

1235 027262 

1236 027264 

1237 027270 

1238 027272 

1239 027300 

1240 027302 

1241 027306 

1242 027310 

1243 027314 

1244 027320 

1245 027324 

1246 

1247 027330 
12*8 027334 

1249 027336 

1250 027344 

1251 

1252 027346 

1253 027352 

1254 027354 

1255 027362 

1256 

1257 027364 

1258 027370 

1259 027372 

1260 027374 

1261 027376 

1262 027402 

1263 027404 


027110 

027110 

027162 

005301 

012702 
004037 
027110 
0271 10 
027206 
027232 
02723 
15623 
105741 
001362 
005037 
005037 
000405 
156237 
104413 
000207 


104401 

000403 


104411 

012601 

122711 

001007 

122761 

001003 

105761 

001754 

005037 

005037 

005037 

005037 

121127 

001004 

052737 

000525 

121127 

001004 

052737 

000516 

004037 

000514 

010205 

005201 

004037 

000405 

005201 


000007 

030720 


1 $: 

2 $: 


031356 001330 3$: 


001332 

001334 

031356 001330 


027252 


4$: 

GT.PR2: 


000056 

000056 

000002 

001332 

001334 

001336 

001340 

000123 

000377 

000124 

013000 

030570 

030570 


000001 


001332 


001332 


IS: 


GTTST2: 


1 $: 


2 $: 


GT.PR1 

GT.PR1 

1 $ 

DEC 

NOV 

JSR 

GT.PR1 

GT.PR1 

3$ 

4$ 

4$ 

BISfi 

TSTB 

BKE 

CLR 

CLR 

BR 

SISB 

RESREG 

RTS 


GTTST1: 


;;65$: 

64$: 


R1 

#7,R2 

RO.CK.DIG 


CZ 

SI 


ATABI T (R2) .DRVSEL 
-<R1) 

2 $ 

TSTNNS 
TSTNNS+2 
GTTST1 
ATABI T(R2), DRVSEL 


TYPE 

BR 

.ASCIZ 

RDLIN 

MOV 

CMPB 

BNE 

CMPB 

BNE 

TSTB 

BEO 

CLR 

CLR 

CLR 

CLR 

CMPB 

BNE 

BIS 

BR 

CMPB 

BNE 

BIS 

BR 

JSR 

BR 

MOV 

INC 

JSR 

BR 

INC 


PC 


,65$ 

64$ 

/TEST=/ 


<SP)*.R1 

#\,<R1> 

1 $ 

#\,1<Rl) 

1 $ 

2(R1) 

GT.PR2 

TSTNNS 

TSTNNS+2 

OPNFLG 

OPNFLG+2 

<R1).#'S 

1 $ 

#377, TSTNNS 
GTTST3 

(R1) ,#*T 

2 $ 

#13000. TSTNNS 
GTTST3 

RO.CX.OCT 

GTTST4 

R2.R5 

R1 

RO.CX.OCT 

3$ 

R1 


DIGIT 0-9 


UPPER UNIT OF INPUT 
CHECK THE DIGIT(S) 

ILLEGAL INPUT 
INPUT TO LARGE 

TERNINATED WITH A ’V OR •'CR’' 
TERMINATED WITH A *V 
TERNINATED WITH A 

;SET THE DRIVE SELECTED BIT 
WAS THE LINE TERNINATED? 

NO-GET THE NEXT DRIVE 
DESELECT ALL TESTS 

YES— SELECT TEST 

;SET THE SELECTED DRIVE BITS 
RESTORE RO - R5 
EXIT 


;;TYPE ASCIZ STRING 
; ; GET OVER THE ASCIZ 


READ AN ASCIZ STRING 
POINTER TO R1 
DOUBLE PERIOD? 

NO— BRANCH 


;"CR"? 

; YES— EXIT 

;N0 TEST SELECTED 

;N0 TESTS TO BE OPENED 


ALL SEEK TESTS? 

NO— BRANCH 

YES— SELECT TESTS 0-7 


ALL TIMING TESTS? 

NO— BRANCH 

YES— SELECT TESTS 11.12 t 


OCTAL DIGIT? 

NO— BRANCH 

YFS— SAVE IT 

MOVE TO NEXT CHARACTER 

OCTAL DIGIT 

NO— BRANCH 

MOVE TO NEXT CHARACTER 


14 


j 
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1267 

1265 

1271 


1274 

1275 

1276 


1264 027406 

1265 027410 

1266 027412 
027414 
027416 

... . 027416 

1272 027422 

1273 027424 
027430 
027432 
027436 

1277 027440 

1278 027442 

1279 027444 

1280 027446 

1281 027454 

1282 027460 

1283 027462 

1284 027464 

1285 027470 

1286 027472 

1287 027474 

1288 027476 

1289 027502 

1290 027504 

1291 027506 

1292 027510 

1293 027512 

1294 027514 

1295 027516 

1298 027516 

1299 027522 

1300 027524 

1301 

1302 027530 

1303 027532 

1304 027534 

1305 027540 

1306 027544 

1307 027550 

1308 027552 

1309 027554 

1310 027560 
027562 
027564 
027566 

1314 027570 

1315 027576 

1316 027602 

1317 027606 

1318 027610 
027614 
027616 


1311 

1 31 r 
131: 


1323 

1324 


006305 

006305 

006305 

060502 


>27 000015 
003510 

010237 027616 


1319 

1320 

1321 

1322 027620 
027622 
027626 


02022 
00331 
01021 
010204 
042704 000017 
006204 
006204 
006204 
006302 

056264 001560 001332 
121127 000055 
001060 
005201 

004037 0*0570 
000665 
010205 
005201 

004037 030570 

000405 

005201 

006305 

006305 

006305 

060502 

020227 000015 
003250 

023702 027616 

002245 

010246 

013702 027616 
012637 027616 
006337 027616 
006302 
010204 

042704 000037 

006204 

006204 

006204 

006204 

056264 001560 001332 
062702 000002 
020237 027616 
101761 

162702 000002 

000402 

000000 

005201 

121127 000056 
001461 


3$: 


4$: 


5$: 


6 $: 


ASL 

ASL 

ASL 

ADD 

CAP 

BGT 

NOV 

NOV 

BIC 

ASR 

ASR 

ASR 

ASL 

BIS 

CNPB 

BNE 

INC 

JSR 

BR 

NOV 

INC 

JSR 

BR 

INC 

ASL 

ASL 

ASL 

ADD 

CNP 

BGT 

CNP 

BGE 

NOV 

NOV 

NOV 

ASL 

ASL 

NOV 

BIC 

ASR 

ASR 

ASR 

ASR 

BIS 

ADD 

CNP 

8L0S 

SUB 

BR 

.WORD 


GTTST3: INC 
GTTST4: CNPB 
BEQ 


R5 

R5 

R5 

R5.R2 


.'SCALE HIGH DIGIT 


.'CONBINE HIGH t LOW DIGITS 


R2,#15 
GTTST1 
R2.6S 
R2.R4 
#17. R4 
R4 
R4 
R4 
R 2 

B!TS(R2).TSTNNS(R4) 


.•VALID TEST NUNBER? 

; NO— BRANCH 

.‘SAVE THE TEST NUNBER 

.'CONVERT TEST NUNBER INTO AN INDEX 

.'CLEAR UNWANTED BITS 

.•SHIFT THE BITS 


(R1 ) ,#'- 

GTTST4 

R1 

RO.CK.OCT 

GTTST1 

R2.R5 

R1 

RO.CK.OCT 

4$ 

R1 

R5 

R5 

R5 

R5. R2 

R2.#15 

GTT5T1 

6 S.R2 

GTTST1 

R2.-ISP) 

6S.R2 

(SPH.6S 

6$ 

R2 

R2.R4 

#37. R4 

R4 

R4 

R4 

R4 

BITSCR2), 

#2.R2 

R2.6S 

5$ 

#2.R2 

GTT5T4 

0 

R1 

<R1),#\ 

GTTST5 


; SELECT TEST 


( •■'WWW > 

.•TEST STRING? 

•YES— NOVE TO NEXT CHARACTER 
; OCTAL DIGIT? 

; NO— BRANCH 

;YES— SAVE IT 

;NOVE TO NEXT CHARACTER 

.‘OCTAL DI6IT? 

•NO— BRANCH 

•YES— NOVE TO NEXT CHARACTER 
.•SCALE HIGH DIGIT 


CONBINE HIGH t LOW DIGIT 
VALID TEST NUNBER? 

no — mmcH 

IS THE FIRST NlflBER Of THE 
STRJN6 SNALLER THAN THE LAST? 
NO— BRANCH 

SAVE ENDING TEST NUNBER 
GET STARTING TEST NUNBER 
STORE ENDING TEST NUNBER 
SHIFT ENDING TEST NUNBER 
SHIFT TEST NUMBER 
COPY TEST NUNBER INTO R4 
CLEAR LOWER BITS 
SHIFT THE TEST NUNBER 


TSTNNSCR4) ; SELECT THE TEST 

INECRENEnT THE TEST NUNBER 
SEE IF FINISHED 
BR IF NOT 

CORRECT TEST NUNBER 
CONTINUE 

STORE TEST NUNBER HERE 

NOVE TO NEXT CHARACTER 
"PERIOD'? 

YES— BRANCH 


K 10 


SEQ 0127 
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1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 
13o1 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 


027630 

027634 

027636 

027642 

027644 


027650 

027654 

027656 

027664 

027666 

027674 

027676 

027704 

027706 

027714 

027716 

027724 

027726 
027732 
027734 
027H0 
027742 
027744 
027746 
027752 
027, c l 
027760 
027764 
027766 

027772 

027774 

030000 

030002 

030004 

030006 

030012 

030016 

030020 

030024 

030026 

030032 

030034 

030036 

030040 

030044 

030050 

030052 

030056 

030060 


005737 001332 
001005 

005737 001334 
001002 

000137 027244 


TSTNAS 

1 $ 

TSTNAS+2 

IS 

GTTST1 


ANY TEST SELECTED THIS CYCLE? 
BR IF YES 

ANY TEST SELECTED THIS CYCLE ? 
SR IF YES 
NO 


.•CHECK TO OPEN TEST FOR PARAMETER CHANGE 


121127 

001024 

126127 

001004 

052737 

000421 

126127 

001004 

052737 

000411 

056264 

000405 

121127 

001402 

000137 

005201 

105711 

001402 

000137 

005737 

001042 

005737 

001037 

000137 

005201 

121127 

001414 

105711 

001402 

000137 

005737 

001022 

005737 

001017 

000137 

005201 

105711 

001402 

000137 

005737 

001005 

005737 

001002 

000137 


000057 

177777 000123 
000377 001336 
177777 000124 
013000 001336 
001560 001336 

000054 

027244 


027330 

001336 

001340 

027244 


000056 


027244 

001336 

001340 

027240 


027244 

001336 

001340 

027240 


IS: 

CAPS 

(R1) .#’/ 

’OPEN"? 

8NE 

4S 

NO— BRANCH 


CAP8 

-1 CRD.f’S 

ALL SEEK TESTS? 


BNE 

2S 

NO— BRANCH 


BIS 

BR 

CAPS 

#377, OPNFLG 

5S 

-KRD.f'T 

YES— OPEN TESTS 0-7 

2S: 

ALL TIAING TESTS? 

BNE 

3S 

NO— BRANCH 


BIS 

#13000, OPNFLG 

5S 

BITSCR2) .OPNFLGCR 
5S 

YES— OPEN TESTS 11,12 t 14 

3S: 

BR 

BIS 

BR 

14) ; YES— SET BITS FOR TEST TO OPEN 

4S: 

CAPS 

CRD,#’. 

"COAAA"? 

BEO 

5S 

BR IF YES 


JAP 

GTTST1 

NO 

5S: 

INC 

R1 

AOVE TO NEXT CHARACTER 

"CRM? 

TSTB 

(R1) 


BEQ 

6S 

BR IF 'CR' 


JAP 

GTTST2 

NO— GO GET NEXT CHARACTER 

6S: 

TST 

OPNFLG 

ANY TESTS TO OPEN ? 

BNE 

OPNTST 

BR IF YES 


TST 

OPNFLG+2 

ANY TESTS TO OPEN ? 


BNE 

OPNTST 

BR IF YES 


JAP 

GTTST1 

NO— START AGAIN 

GTTST5: 

INC 

R1 

AOVE TO NEXT CHARACTER 

CAPS 

(R1) ,#' . 

'PERIOD"? 


BEQ 

GTTST6 

YES— BRANCH 
"CR"? 


TSTB 

(R1) 


BEQ 

JAP 

IS 

GTTST1 

YES— BRANCH 

IS: 

TST 

OPNFLG 

ANY TESTS TO OPEN ? 1 

BNE 

OPNTST 

BR IF YES 


TST 

OPNFLG+2 

ANY TESTS TO OPEN ? 


BNE 

OPNTST 

BR IF YES 


JAP 

GT.PR2 

NO— GO START TESTING 

GTTST6: 

INC 

R1 

AOVE TO NEXT CHARACTER 

TSTB 

CR1) 

"CR"? 


BEQ 

IS 

YES— BRANCH 


JAP 

GTTST1 

NO— GO ASK FOR TEST 

IS: 

TST 

OPNFLG 

ANY TESTS TO OPEN ? 

BNE 

OPNTST 

BR IF YES 


TST 

OPNFLG+2 

ANY TESTS TO OPEN ? 


BNE 

OPNTST 

BR IF YES 


JAP 

GT.PR2 

NO-GO START TESTING 


.OPEN THE SELECTED TEST FOR CHANGES 
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SEQ 0128 


1382 

1383 030064 

1384 030066 
1585 030070 

1386 030072 

1387 

1388 030074 

1391 030100 

1392 030106 

1393 030110 

1394 030112 

1395 

1396 030116 

1397 030122 

1398 030124 

1399 030130 

1400 030134 

1401 030136 

1402 030140 

1403 030142 

1404 030150 

1405 030152 
030156 

030170 

1406 030170 
030174 
030176 
030177 

1407 030200 

1408 030204 

1409 030210 

1410 030212 

1411 030216 

1412 030220 

1413 030222 

1414 030224 

1415 030226 

1416 030230 

1417 030232 

1418 030234 

1419 

1420 030236 

1421 030242 

1422 030244 

1423 030246 

1424 030250 

1425 030252 

1426 030254 

1427 030256 

1432 030256 

1433 030262 

1434 030270 

1435 030272 

1436 030274 

1437 030300 
030304 


104412 

005027 

000000 

000411 

005237 

022737 

002003 

104413 

000137 

013705 

006305 

013703 

042703 

006203 

006203 

006203 

036563 

001751 

104401 

000404 


013746 

104403 

002 

000 

104401 

016500 

011046 

012702 

000405 

006216 

103403 

001404 

005722 

000773 

012022 

000771 


005004 

006216 

103403 

001772 

005724 

000773 


104401 

000000 




OPNTST: SAVREG 




CLR 

(PC)* 



OPN.CT: .WORD 

0 



BR 

0PN.2 

030070 


0PN.1: INC 

OPN.CT 

000015 

030070 

CMP 

#15,0PN.C 



BGE 

0PN.2 



RESREG 


027244 


JMP 

GTTST1 

030070 


0PN.2: MOV 

OPN.CT, R5 



ASL 

R5 

030070 


MOV 

OPN.CT, R3 

000017 


BIC 

#1 7,R3 



ASR 

R3 



ASR 

R3 



ASR 

R3 

001560 

001336 

BIT 

BITS(R5),i 



BEQ 

0PN.1 

030160 


TYPE 

,65$ 



8R 

64$ 



; ; 65$ : .ASCIZ 

/ TEST / 



64S: 


030070 


MOV 

OPN.CT, -( 


TYPOS 

.BYTE 

.BYTE 


2 

0 


001231 


TYPE 

,$CRLF 

002352 


MOV 

PRMPT (R5) ,R0 


MOV 

(RO).-(SP) 

002320 


MOV 

#PR M.R2 


BR 

2$ 


1$: 

ASR 

(SP) 



BCS 

2$ 



BEQ 

OPNPRM 



TST 

(R2)* 



BR 

1$ 


2$: 

MOV 

(R0)MR2> + 



BR 

1$ 

002320 

OPNPRM: 

MOV 

PRM.(SP) 


CLR 

R4 


1$: 

ASR 

(SP) 



BCS 

3$ 



BEQ 

OPNPRM 


2$: 

TST 

<R4>* 



BR 

1$ 


3$: 



040053 


TYPE 

.BLNKS2 

002434 

030272 

MOV 

PRMMSG(R4) ,4$ 

4$: 

TYPE 

.WORD 

0 


036746 


TYPE 

.MSG.EQ 

002322 


MOV 

RPT (R4) ,-<SP) 
PC, $3820 

022212 


JSR 


SAVE RO - R5 
START WITH TEST 0 
COUNT STORED HERE 
SKIP THE INCREMENT 

MOVE TO THE NEXT TEST 
TEST NUMBER TOO BIG? 

NO— OPEN THE NEXT TEST 

RESTORE RO - R5 

YES— GO ASX FOR MORE TESTS 

SETUP TO USE THE 
TEST NUMBER AS AN INDEX 
GET INDEX 

CLEAR LOWER TEST BITS 
SHIFT TEST NUMBER 


:R3> ;OPEN THIS TEST? 
;N0— MOV§ TO NEXT TEST 
; ; TYPE ASCIZ STRING 
; ; GET OVER THE ASCIZ 


SAVE OPN.CT FOR TYPEOUT 
GO TYPE— OCTAL ASCII 
TYPE 2 DIGIT(S) 

SUPPRESS LEADING ZEROS 
CR-LF 

PICKUP PARAMETER POINTER 
SAVE THE VARIABLE INDICATOR 
FIRST ADDRESS OF TABLE 

CHECK FOR A VARIABLE 
GO MOVE THIS ONE 
DONE 

BUMP THE POINTER 

MOVE THIS VARIABLE INTO THE 
COMMON AREA 

GET THE VARIABLE INDICATOR 
ZERO THE INDEX 
CHECK FOR A VARIABLE 
GO GET IT 
OUT OF VARIABLES 
UPDATE THE INDEX 


.-TYPE 2 BLANKS 

;TYPE THE NAME OF THIS VARIABLE 


TYPE = 

PUT RPT (R4) ON THE STACK 
CHANGE TO DECIMAL ASCIZ 


i 


n 10 
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030310 

004737 

022442 

JSR 

PC.SSUPRS 

1438 030314 

104401 

036773 

TYPE 

.SLASH 

1439 030320 

104411 


RDLIN 

(SP>*. R1 

1440 030322 

012601 


MOV 

1441 030324 

004037 

030644 

JSR 

RO.CK.CHR 

030330 

030256 


3$ 


030332 

03025? 


2J 


030334 

030402 


9$ 


030336 

030344 


j$ 


030340 

030352 


6$ 


030342 

030400 


8$ 

(R1 ) 

1442 030344 

105711 


5$: TSTB 

1443 030346 

001343 


BNE 

3J 

1444 030350 

000740 


BR 

2J 

1445 C30352 

105711 


6$: TSTB 

(R1 ) 

1446 030354 

001002 


BNE 

7$ 

1447 030356 

000137 

030436 

JMP 

0PN.N2 

A* . , (R1 )♦ 

1448 030362 

122721 

000056 

7$: CMPB 

1449 030366 

001333 


BNE 

3S 

1450 030370 

105711 


TSTB 

(R1 ) 

1451 030372 

001331 


BNE 

3$ 

1452 030374 

1453 

000137 

030454 

JMP 

0PN.X2 

1454 030400 

005301 


8$: D"r 

R1 

1455 030402 



9$: 

PRMLMT (R4) .R2 

0304C2 

016402 

002410 

MOV 

030406 

004037 

030720 

JSR 

RO.CK.DIG 

030412 

030256 


3J 


030414 

030256 


3J 


030416 

030424 


10J 


030420 

030432 


0PN.N1 


030422 

030450 


0PN.X1 


1456 030424 

010264 

002322 

10S: MOV 

R2.RPTCR4) 

1457 030430 

1458 

000710 


BR 

2$ 

R2.RPTCR4) 

1530 030432 

010264 

002322 

0PN.N1 : MOV 

1531 030436 

005726 


0PN.N2: TST 

(SP) + 

1532 030440 

004737 

030510 

JSR 

PC. CLOSE 

1533 030444 

1534 

1535 030450 

000137 

030v/74 

JMP 

0PN.1 

010264 

002322 

OPN.Xl : MOV 

R2.RPT (R4) 

1536 030454 

005726 


0PN.X2: TST 

(SP) + 

1537 030456 

004737 

030510 

1$: JSR 

PC. CLOSE 
(R5) + 

1538 030462 

005725 


2S: TST 

1539 030464 

020527 

000034 

CMP 

R5.#16*2 

1540 030470 

002403 


BLT 

3$ 

1541 030472 

104413 


RESREG 


1542 030474 

000137 

027240 

JMP 

GT.PR2 

1543 030500 

036503 

001560 

3$: BIT 

BITSCR5).R3 

1544 030504 

001364 


BNE 

IS 

1545 030506 

1546 

000765 


BR 

2$ 

1547 



.•CLOSE CURRENT 

TEST THAT WAS 

1548 

1549 030510 

104412 


CLOSE: SAVREG 


1550 030512 

012700 

002320 

MOV 

APRM.RO 

1551 030516 

016501 

002352 

MOV 

PRMPT(R5),R1 


.-TYPE WITHOUT LEADING ZEROS 
.-TYPE ' / ' 

READ AN ASCIZ STRING 
CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 

»yi* 

M • • 

DIGIT 0-9 
•*CR“? 

NO — STAY ON THIS VARIABLE 
YES— MOVE TO NEXT VARIABLE 
IS THERE A ,, CR** AFTER THE PERIOD? 

NO 

YES— GO CLOSE THIS TEST 
DOUBLE PERIOD? 

NO-GO ASK FOR THIS VARIABLE 
YES— IS A ”CR'' AFTER THE DOUBLE PERIOD? 
NO— ASK FOR THIS VARIABLE AGAIN 
YES— CLOSE ALL TEST 

.-BACK THE POINTER UP BY ONE 

.•UPPER LIMIT OF INPUT 
.CHECK THE DIGIT (S) 

.•ILLEGAL INPUT 
.•INPUT TO LARGE 

.•TERMINATED WITH A 'V OR "CR" 
.•TERMINATED WITH A 'V 
.•TERMINATED WITH A 
.-SAVE THIS VARIABLE 
.-MOVE TO NEXT VARIABLE 

.-SAVE THIS VARIABLE 
.‘CLEAN OFF THE STACK 
.•CLOSE THIS TEST 
;G0 OPEN THE NEXT TEST 

.-SAVE THIS VARIABLE 
.•CLEAN OFF THE STACK 
.•CLOSE THIS TEST 
.•UPDATE THE INDEX 
.•INDEX TO BIG? 

; NO— BRANCH 
; RESTORE RO - R5 
;G0 TO EXIT 

;IS THIS TEST OPEN FOR CHANGE? 

; YES— GO CLOSE IT 
;N0— MOVE TO NEXT TEST 

:N FOR CHANGES 


SAVE RO - R5 


•TROM" ADDRESS 


"TO" ADDRESS 


SEO 0129 
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(R0>*.R2 
(R1)*,R3 
#1 ,R4 
R4.R2 

2 $ 

R4.R3 
3$ 

(ROMS’) 
P4.R3 

3$ 

(R1 )♦ 
(RO)* 

R4 

SBIT10.R4 
IS 

PC 


N 10 


SEO 01. 


| 1 ?52 

030522 

012002 



MOV 

! 1553 

030524 

012103 



MOV 

! 1554 

030526 

012704 

000001 


MOV 

1555 

030532 

C’0402 


IS: 

BIT 

1556 

030534 

001405 



BEQ 

1557 

030536 

030403 



BIT 

1558 

030540 

001404 



BEQ 

1559 

030542 

011011 



MOV 

1560 

030544 

030403 


2S: 

BIT 

1561 

030546 

001401 



BEQ 

1562 

030550 

005721 



TST 

1563 

030552 

005720 


3S: 

TST 

1564 

030554 

0C6304 



ASL 

1565 

030556 

032704 

002000 


BIT 

1566 

030562 

001763 



BEQ 

1567 

030564 

104413 



RESREG 

1568 

030566 

000207 



RTS 


"FROM" INDICATOR 
'•TO** INDICATOR 
TEST BIT START A "RPT” 
PARAMETER TO BE MOVED? 
NO— BRANCH 
A PLACE TO PUT IT? 

NO— BRANCH 

YES— MOVE *TR0M" TO "TO' 
"TO" PARAMETER? 

NO— BRANCH 

YES— UPDATE THE POINTER 
UPDATE FROM POINTER 
POSITION THE TEST BIT 
DONE? 

NO— BRANCH 
RESTORE RO - R5 
RETURN 


1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1 608 


THIS ROUTINE IS USED TO CHECK IF AN 
ASCII CHARACTER IS A DIGIT BETWEEN 0 AND 

call 

#ADR,R1 
RO.CK.OCT 


7. 


MOV 

JSR 

RETURN1 

RETURN2 


030570 

121127 

000060 

030574 

103407 


030576 

121127 

000067 

030602 

101004 


030604 

111102 


030606 

042702 

177770 

030612 

005720 


030614 

000200 



CK.OCT: 


1 $: 


CMP8 

BLO 

CMPB 

BHI 

N0V8 

BIC 

TST 

RTS 


(R1).#*0 

IS 

(R1).#*7 

IS 

(R1).R2 
#*C7,R2 
(R0) + 

RO 


ADDRESS OF ASCII CHARACTER 
CHECK THE CHARACTER 
CHARACTER IS NOT BETWEEN 0-7 
CHARACTER IS IN R2 AS A 
OCTAL DIGIT 


LESS THAN ZERO? 

YES — BRANCH 
GREATER THAN SEVEN? 
YES — BRANCH 
GET THE CHARACTER 
STRIP AWAY THE ASCII 
ADJUST FOR RETURN 
RETURN 





; MOV 




; JSR 

; RETURN1 

; RETURN2 

030616 

121127 

000060 

CK.DEC: CMP8 

030622 

103407 


BLO 

030624 

121127 

000071 

CMP8 

030630 

101004 


BHI 

030632 

111102 


M0V8 

030634 

042702 

000060 

BIC 

030640 

005720 


TST 

030642 

000200 


IS: RTS 


THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
AND DETERMINE IF IT IS A DIGIT BETWEEN 0 AND 9. 
CALL 

#ADR.R1 
RO.CK.DEC 


ADDRESS OF ASCII CHARACTER 
CHECK THE CHARACTER 
NOT BETWEEN 0 AND 9 
BETWEEN 0 AND 9 
R 2 = DIGIT 


(R1) ,#*0 
IS 

(R1),#'9 

IS 

(RD.R2 

#'0,R2 

(R0)+ 

RO 


;LESS THAN ZERO? 

; YES — BRANCH 

; GREATER THAN NINE? 
; YES — BRANCH 
;GET THE CHARACTER 
;STRIP AWAY THE ASCII 
.•ADJUST FOR RETURN 
.•RETURN 


THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
DETERMINE WHAT IT IS. 

CALL 
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1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 030644 

1620 030646 
1*21 030650 

1622 030654 

1623 030656 

1624 030662 

1625 030664 

1626 030670 

1627 030672 

1628 030676 

1629 030700 

1630 030702 

1631 030704 

1632 030706 

1633 030710 

1634 030712 

1635 030714 

1636 030716 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 030720 

1651 030722 

1652 030724 

1653 030726 

1654 030730 

1655 030732 

1656 030734 
030740 
030742 
030744 
030746 
030750 
030752 

1657 030754 

1658 030756 

1659 030760 


B 11 


SEO 0131 




MOV 

fADR.RI 



JSR 

RO, CK.CHR 



RETURN 

ADR1 



RETURN 

ADR 2 



RETURN 

ADR3 



RETURN 

ADR4 



RETURN 

ADR5 



RETURN 

ADR 6 

105711 

CK.CHR: 

TSTB 

(R1) 

001420 


BEO 

4$ 

121127 

000057 

CMPB 

(R1) ,M' / 

001414 


BEO 

3$ 

121127 

000054 

CMPB 

(R1),#', 

001410 


6cQ 

2$ 

121127 

000056 

CMPB 

(R1 ) ,A’ . 

001404 


BEO 

1$ 

004037 

030616 

JSR 

RO.CK.DEC 

000406 


BR 

5$ 

005720 


TST 

(ROM 

005720 

IS: 

TST 

(RO)* 

005720 

2$: 

TST 

( RO M 

005720 

3S: 

TST 

(ROM 

005720 

4$: 

TST 

(ROM 

005201 


INC 

R1 

011000 

5$: 

MOV 

(RO) ,R0 

000200 


RTS 

RO 


THIS ROUTINE CHECKS AN 
CHARACTERS AND FORMS A 


010446 

010346 

010246 

005002 

U05003 

005004 

004037 030644 

031070 

031070 

031070 

031070 

031070 

030754 

006303 

010346 

006303 


CALL 

MOV 

fADR.Rl 


MOV 

#NUM,R2 


JSR 

RO. CK.DIG 


RETURN 

ADR1 


RETURN 

ADR2 


RETURN 

ADR3 


RETURN 

ADR4 


RETURN 

ADR5 

CK.DIG: 

MOV 

R4,-(SP> 


MOV 

R3.-(SP> 


MOV 

R2.-(SP) 


CLR 

R2 


CLR 

R3 


CLR 

R4 


JSR 

RO. CK.CHR 

1$: 

9$ 

9$ 

9$ 

9$ 

9$ 

1$ 

ASL 

R3 


MOV 

R3,-(SP> 


ASL 

R3 


ADDRESS OF ASCII CHARACTER 
CHECK CHARACTER 
UNKNOWN CHARACTER 
CARRIAGE RETURN * (R1)=ADR*1 
SLASH * (R1)=ADR*1 
COMMA * (R1 )=ADR+1 
PERIOD * (R1)=ADR*1 
DIGIT BETWEEN 0 AND 9. 

R2 = DIGIT * (R1)=ADR*1 

"CARRIAGE RETURN"? 

YES ~ BRANCH 
"SLASH"? 

YES -- BRANCH 
"COMMA”? 

YES — BRANCH 
"PERIOD"? 

YES — BRANCH 
"DIGIT"? 

NO — BRANCH 

DIGIT BETWEEN 0-9 

PERIOD 

COMMA 

SLASH 

CARRIAGE RETURN 

MOVE POINTER TO NEXT CHARACTER 

UNKNOWN CHARACTER 

RETURN 


ASCII STRING FOR LEGAL 

DECIMAL VALUE BINARY NUMBER IN R2. 


ADDRESS OF ASCIZ STRING 
MAX. MAGNITUDE OF INPUT NUMBER 
CHECK DIGITS 

ILLEGAL CHARACTER — R2=? 

INPUT NUMBER TO LARGE — R2=? 
"COMMA" — R2 = NUMBER 
"PERIOD" — R2 = NUMBER 
’PERIOD-PERIOD" — R2 = NUMBER 

SAVE R4 
SAVE R3 

SAVE THE MAX. SIZE ON THE STACK 
START WITH 0 


CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 

f yn 
« 9 9 9 


DIGIT 0-9 
2 

SAVE *2 
4 



SEO 0132 
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C 11 


‘661 


1671 


1681 


1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 


1701 


1704 


030762 

006303 



ASL 

030764 

062603 



ADD 

030766 

060203 



ADD 

030770 

004037 

030644 


JSR 

030774 

031070 



9$ 

030776 

031010 



2$ 

031000 

031070 



9$ 

031002 

031016 



4$ 

031004 

031014 



3S 

031006 

030754 



1$ 

031010 

005301 


2$: 

DEC 

031012 

000401 



BR 

031014 

005724 


3$: 

TST 

031016 

00572<t 


AS: 

TST 

031020 

004037 

030644 


JSR 

031024 

031070 



9$ 

031026 

031060 



7$ 

031030 

031070 



9$ 

031032 

031070 



9$ 

031034 

031040 



5$ 

031036 

031050 



6$ 

031040 

005724 


5$: 

TST 

031042 

105711 



TSTB 

031044 

001405 



BEQ 

031046 

000410 



BR 

031050 

126127 

177776 

000054 6$: 

CMP8 

031056 

001004 



BNE 

031060 

020316 


7$: 

CMP 

031062 

101001 



BHI 

031064 

060400 



ADD 

031066 

005720 


8S: 

TST 

031070 

010302 


9$: 

MOV 

031072 

005726 



TST 

031074 

012603 



MOV 

031076 

012604 



MOV 

031100 

011000 



MOV 

031102 

000200 



RTS 


R3 

(SP)+,R3 

R2.R3 

RO.CK.CHR 


R1 

4$ 

(R4) + 

(R4) + 
RO.CK.CHR 


(R4) + 

(R1 ) 

7$ 

9$ 

-2(R1>.#\ 

9$ 

R3. <SP) 

8 $ 

R4.R0 
(R0) + 
R3.R2 
(SP) + 
(SPH.R3 
(SP) +.R4 
(R0),R0 
RO 


8 

<* 8 >*(* 2 )=* 10 . 

UPDATE THE INPUT NUMBER 
CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 

iyn 
ii it 

ii ' i . 

DiGIT 0-9 

BACKUP THE CHARACTER POINTER 

CONTINE 

'PERIOD" 

"COMMA" OR "CR" 

CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 

l l^i • 

• l II 

DIGIT 0-9 
'PERIOD-PERIOD" 

"CR"? 

YES— BRANCH 

WAS CHARACTER BEFORE THE DIGIT A COMMA? 
NO— EXIT 
INPUT TO LARGE? 
y cc __ DDANTM 

ADJUST RETURN ADDRESS 
NUMBER TO R 2 

CLEAN MAX. SIZE OFF OF STACK 

RESTORE R3 

RESTORE R4 

GET RETURN ADDRESS 

RETURN 


THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
AND FORMS AN OCTAL NUMBER IN R2 


CALL: 




; MOV 

fADR.Rl 



; JSR 

RO. CK.NUM 



; RETURN 

ADR1 



; RETURN 

ADR2 



; RETURN 

ADR3 



; RETURN 

ADR4 

031104 

010346 

CK.NUM: MOV 

R3.-ISP) 

031106 

005003 

CLR 

R3 

031110 

004037 030570 

JSR 

RO.CK.OC7 

031114 

000440 

BR 

6* 

031116 

005201 

1$: INC 

R1 

031120 

006303 

ASL 

R3 

031122 

103435 

BCS 

6$ 

031124 

006303 

ASL 

R3 

031126 

103433 

BCS 

6$ 


ADDRESS OF ASCIZ STRING 
GO FORM THE NUMBER 


ILLEGAL CHARACTER IN THE II 
"COMMA" OR "CR" — R2=NUHBt'R 
'PERIOD"— R2=NUMBER 
' PERIOD-PERIOD"— R2=NUMBER 

start R number AT ZERO 

OCTAL DIGIT? 

NO— BRANCH 

MOVE TO NEXT CHARACTER , 
FOR THE OCTAL NUMBER IN R3 
DON'T LET IT GET TO BIG 


INPUT STRING 



SEO 0133 


IS THIS AN OCTAL DIGIT? 

NO— FIND OUT WHAT IT IS 

YES— MAKE IT PART OF THE NUMBER 

SAVE THE OCTAL NUMBER 

START WITH ZERO INDEX 

CHECK ONE CHARACTER 

ILLEGAL CHARACTER 

CARRIAGE RETURN 


DIGIT 0-9 
’PERIOD” 

’PERIOD-PERIOD”? 

NO— BRANCH 

YES— ADVANCE THE POINTER 
’PERIOD-PERIOD” 

’’COMMA” 

”CR"? 

NO— BRANCH 

YES— SAVE THE OCTAL NUMBER 
RESTORE R3 
PICKUP EXIT ADDRESS 
RETURN 



SEO 0134 
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E 11 


7 

17 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 031224 000000 000000 000000 RMERRS: .WORD 0.0,0 

44 

45 

46 

47 

48 

49 

50 
53 


.SBTTl SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 

.-COPYRIGHT (C) 1979.1981 
; DIGITAL EQUIPMENT CORP. 

.-MAYNARD. HA 01754 
;AUTHOR($>: CHUCK HESS 
.-REVISED BY: MIKE LEAVITT 


.STORAGE FOR RMDS. RMER1 AND RMER2 ON AN ERROR * 2 
RMERRS = RMDS 
RMERRS+2 = RMER1 
RMERRS+4 = RMER2 


.-TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 

;DRVACT=0 IF DRIVE IS IDLE 

;DRVACT>0 IF DRIVE IS ACTIVE WITH A COMMAND 

;DRVACT<0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


54 

55 

56 

57 

58 

59 

60 
63 


031232 

031233 

031234 

031235 

031236 

031237 

031240 

031241 


000 

000 

000 

000 

000 

000 

000 

000 


•BYTE 0 

DRIVE 0 

.BYTE 0 

DRIVE 1 

.BYTE 0 

DRIVE 2 

.BYTE 0 

DRIVE 3 

.BYTE 0 

DRIVE 4 

.BYTE 0 

DRIVE 5 

.BYTE 0 

DRIVE 6 

.BYTE 0 

DRIVE 7 


.-TABLE OF DRIVE STATUS INDICATORS (DRVCTA=8 BYTES) 

;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
;DRVSTA>0 IF DRIVE IS ONLINE 
;DRVSTA<0 IF DRIVE IS UNSAFE 


64 

65 

66 

67 

68 

69 

70 
73 


031242 

000 

DRVSTA: .BYTE 

0 

DRIVE 0 

031243 

000 

.BYTE 

0 

DRIVE 1 

031244 

000 

.BYTE 

0 

DRIVE 2 

031245 

000 

.BYTE 

0 

DRIVE 3 

031246 

000 

.BYTE 

0 

DRIVE 4 

031247 

000 

.BYTE 

0 

DRIVE 5 

031250 

000 

.BYTE 

0 

DRIVE 6 

031251 

000 

.BYTE 

0 

DRIVE 7 


; TABLE OF DRIVE TYPES <DRVTYP=8 BYTES) „ _ 

;DRVTYP=0 IF DRIVE IS NONEXISTENT <DRVSTA=0. ALSO) 
;DRVTYP=1 IF DRIVE IS RM80 
;DRVTYP*-1 IF NOT HM80 


031252 

000 

DRVTYP: .BYTE 

0 

; DRIVE 0 

031253 

000 

.BYTE 

0 

.-DRIVE 1 

031254 

000 

.BYTE 

0 

.-DRIVE l 

031255 

000 

.BYTE 

0 

; DRIVE 3 
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F 11 


SEQ 0135 


74 

75 

76 

77 

78 


031256 

031257 

031260 

031261 


000 

000 

000 

000 


83 

84 

85 

86 
87 


99 

100 

101 

102 

;03 

104 031322 

105 

106 
107 

ioa 

109 

110 
111 
112 

113 

114 


000000 


031324 OuOOOO 


.BYTE 

.BYTE 

.BYTE 

.BYTE 


0 

0 

0 

0 


DRIVE 4 
DRIVE 5 
DRIVE 6 
DRIVE 7 


; TABLE OF DUAL PORT INITIALIZATION INDICATORS 

;DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
;DPINT<0 IF INITIALIZATION IS IN PR06RESS 


79 031262 

000 

DPINT: .BYTE 

0 

.’DRIVE 

0 

82 031263 

000 

.BYTE 

0 

.‘DRIVE 

1 

031264 

000 

.BYTE 

0 

.’DRIVE 

2 

031265 

000 

.BYTE 

0 

.’DRIVE 

3 

031266 

000 

.BYTE 

0 

.DRIVE 

4 

031267 

000 

.BYTE 

0 

.’DRIVE 

5 

031270 

000 

.BYTE 

0 

.-DRIVE 

6 

031271 

000 

.BYTE 

0 

.’DRIVE 

7 


.’TABLE OF PENDING DUAL PORT REQUESTS 

.‘DPRQS-0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
;DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 


88 031272 

000 

DPRQS : 

.BYTE 

0 

DRIVE 

0 

91 031273 

000 


.BYTE 

0 

DRIVE 

1 

031274 

000 


.BYTE 

0 

DRIVE 

2 

031275 

000 


.BYTE 

0 

DRIVE 

3 

031276 

000 


.BYTE 

0 

DRIVE 

4 

031277 

000 


.BYTE 

0 

DRIVE 

5 

031300 

000 


.BYTE 

0 

DRIVE 

6 

031301 

000 


.BYTE 

0 

DRIVE 

7 

92 







93 


.-DRIVE 

REQUEST 

OUE WORDS 



94 







95 031302 

Ivi'iVi'B • 

QDRV: 

.WORD 

0 

DRIVE 

0 

98 031304 

IffiVHfiHK 


.WORD 

0 

DRIVE 

1 

031306 

SIS 


.WORD 

0 

DRIVE 

2 

031310 

000000 


.WORD 

0 

DRIVE 

3 

031312 

000000 


.WORD 

0 

DRIVE 

4 

031314 

000000 


.WORD 

0 

DRIVE 

5 

031316 

000000 


.WORD 

0 

DRIVE 

6 

031320 

000000 


.WORD 

0 

DRIVE 

7 


.’TRANSFER WAIT FLAG <TRNSWT*1 WORD) 

.’THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
.••DPe" OF THE I/O OPERATION. 

TRNSWT: .WORD 0 

.’SEARCH WAIT KEYS iSRCHWT=1 WORD) 

.THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
.THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE I/O 
.’REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 

.’EACH DRIVE IS ASSIGNED ONE BIT. STARTING AT BITOO FOR DRIVE 0. 

SRCHWT: .WORD 0 

;RM DRIVER ACTIVE FLAG <ACTDRV=1 BYTE) 


SEQ 0156 
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6 11 


115 

116 

117 

118 

119 

120 
121 
12 2 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 
135 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 
148 


031326 


031327 


149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 
170 


000 


000 


031330 000000 


;ACTDRV=0 IF DRIVER IS INACTIVE 
;ACTDRV>0 If DRIVER IS ACTIVE 

ACTDRV: .BYTE 0 

.-SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTRsI BYTE) 

;ACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
;ACTSTR>0 If SOFTWARE TIMER ROUTINE IS ACTIVE 

ACTSTR: .BYTE 0 

.-SAVE REGISTERS FLAG (SAVEFG =1 WORD) 

,-SAVEFG <0 IF SAVE THE RH/RM REGISTERS WHEN THE 
.-OPERATION IS COMPETED AS PER (DPB+14). 

;SAVEFG=0 IF SAVE THE RH/RM REGISTERS. AS PER 
; (DPB+14) , AFTER AN ERROR. 

SAVEFG: .WORD 0 

.-SEEK FLAG (SEEKFG=1 WORD) 

;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
.-FOR A DATA TRANSFER START A SEARCH COMMAND 
,-SEEKFG 0 IF DATA TRANSFER WILL DO IMPLIED SEEKS. 
.-DISREGARD THE WINDOW 


177777 

SEEKFG: .WORD 

-1 



.-TIMEOUT TABLE 

(TIMER=8 WORDS) 



.-THIS 

TABLE CONTAINS THE 

TIME ALI 

177777 

TIMER: .WORD 

-1 

DRIVE 0 

177777 

.WORD 

-1 

DRIVE 1 

177777 

.WORD 

-1 

DRIVE 2 

177777 

.WORD 

-1 

DRIVE 3 

177777 

.WORD 

-1 

DRIVE 4 

177777 

.WORD 

-1 

DRIVE 5 

177777 

.WORD 

-1 

DRIVE 6 

177777 

.WORD 

-1 

DRIVE 7 


031332 


031334 

031336 

031340 

031342 

031344 

031346 

031350 

031352 


031354 177777 


031356 001 002 


031366 176700 
031370 000254 000240 


.-DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 

;DTUW<0 IF NO DATA TRANSFER UNDERWAY 

;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
DTUW: .WORD -1 

.ATTENTION BITS TABLE (ATABIT=8 BYTES) . _ 

;THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
.-ATTENTION BIT 

004 ATABIT: .BYTE 1.2.4.10.20.40,100.200 

.-STORAGE FOR RMADR (THE FIRST ADDRESS '776700) OF THE RH70/RM80| [. 

,-RNVEC (THE VECTOR ADDRESS (254)). AND RMVEC+2 (THE BR LEVEL (5>). 


RMADR: 

RMVEC: 


.WORD 

.WORD 


176700 

254,5*32. 



CZRNGAO RM80 F C TNI PT4 MACRO V04.00 15-JAN-82 07:05:59 PAGE 33-3 
SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.1 7) 


H 11 


SEQ 0137 


171 

172 

173 031374 

174 


.SEARCH 

DIFFE 

000005 

MXUNDU: 

.WORD 

175 

1^6 


DEFINITIONS 

177 


RMCS1 

= 

0 

178 

000002 

RMWC 


2 

179 

000004 

RMBA 

= 

4 

180 

000006 

RMDA 

2 

6 

181 

000010 

RMCS2 

= 

10 

182 

000012 

RMDS 

2 

12 

183 

000014 

RMER1 

2 

14 

184 

000016 

RMAS 

= 

16 

185 


RMLA 

2 

20 

186 


RMDB 

• 

22 

187 


RMMR1 

2 

24 

188 


RMDT 

2 

26 

189 


RMS N 

X 

30 

190 


RMOF 

s 

32 

191 

000034 

RMDC 

2 

34 

192 

000036 

RMHR 

X 

36 

193 


RMMR2 

X 

40 

194 


RMER2 

2 

42 

195 

i=»V.H 

RMEC1 

2 

44 

196 

201 

00004G 

RMEC2 

• 

46 


CONTROL AND STATUS REGISTER #1 (DRIVE REG. 0) 

WORD COUNT REGISTER (NOT A DRIVE REG) 

UNI8US ADDRESS REGISTER (NOT A DRIVE REG) 

DESIRED TRK/SEC ADDRESS REGISTER (DRIVE REG. 5) 
CONTROL AND STATUS REGISTER 02 (NOT A DRIVE REG) 
DRIVE STATUS REGISTER (DRIVE REG 1) 

ERROR REGISTER *1 (DRIVE REG. 2) 

ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 4) 
LOOK AHEAD REGISTER (DRIVE REG. 7) 

DATA BUFFER REGISTER (NOT A DRIVE REG.) 
MAINTAINABILITY REGISTER #1 (DRIVE REG. 3) 

DRIVE TYPE REGISTER (DRIVE REG. 6) 

SERIAL NUMBER REGISTER (DRIVE REG. 10) 

OFFSET REGISTER (DRIVE REG. 11) 

DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
'HOLDING REGISTER" (DRIVE REG. 13) 

MAINTENANCE REGISTER #2 (DRIVE REG. 14) 

ERROR REGISTER 02 (DRIVE REG. 15) 

ECC POSITION REGISTER (DRIVE REG. 16) 

ECC PATTERN REGISTER (DRIVE REG. 17) 
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1 


4 

5 

6 

7 

8 
9 

10 

11 

II 


21 


a; 

a: 


A8 

A9 


52 

53 


56 

57 


•RH70/RM80 DRIVER INITIALIZATION CODE 

;THIS ROUTINE WILL DETERMINE WHICH RM80 DRIVES ARE 
.•AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
; TO THE PROPER STATE FOR EACH DRIVE. 

.'NOTE: THIS ROUTINE CALLS DRVINT 


CALL 


JSR 

RETURN 


PC.RMINIT 


NOTE: THE *P' OR *L’ CLOCK MUST BE STARTED 


031376 

104412 



RMINIT: 

SAVREG 

031400 

013746 

177776 



MOV 

031404 

012737 

000240 

177776 


MOV 

031412 

004737 

036134 



JSR 

031416 

012701 

031224 



MOV 

031422 

012702 

031332 


1$: 

MOV 

031426 

005021 



CLR 

031430 

020102 




CMP 

031432 

101775 




BLOS 

031434 

012702 

031354 


2$: 

MOV 

031440 

012721 

177777 


MOV 

031444 

020102 




CMP 

031446 

101774 

031242 



BLOS 

031450 

005037 



CLR 

031454 

005037 

031244 



CLR 

031460 

005037 

031246 



CLR 

031464 

005037 

031250 



Cl R 

031470 

013703 

031370 



MOV 

031474 

012723 

033526 



MOV 

031500 

013713 

031372 



MOV 

031504 

013704 

031366 

000010 


MOV 

031510 

012764 

000040 


MOV 

031516 

005001 



3$: 

CLR 

031520 

004037 

031610 


JSR 

031524 

000401 




BR 

031526 

031530 

000402 

105061 

031242 


4$: 

BR 

CLRB 

031534 

005201 



5$: 

INC 

031536 

042701 

177770 



BIC 

031542 

001366 




BNE 

031544 

012701 

000007 



MOV 

031550 

005037 

177776 



CLR 

031554 

105761 

031262 


6$: 

TST8 

031560 

001405 




BEO 

031562 

004737 

036062 


7$: 

JSR 

031566 

105761 

031262 


TST8 

031572 

001375 



8$: 

BNE 

031574 

005301 



DEC 

031576 

100366 

177776 



BPL 

031600 

012637 



MOV 

031604 

104413 




RESREG 

031606 

000207 




RTS 


8#PS.-(SP) 
#<5*32. >. WPS 
PC.CLRQUE 
fRMERRS.RI 
#SEEKFG.R2 
(R1 )♦ 

R1.R2 

1 $ 

#DTUW,R2 
#-1 , (Rl )♦ 

R1 ,R2 

2$ 

DRVSTA 

DRVSTA+2 

DRVSTA+4 

DRVSTA+6 

RMVEC.R3 

#ISR,( R3>* 

RMVEC+2. (R3) 

RMADR.R4 

#40,RHCS2(R4) 

R1 

RO. DRVINT 
A$ 

5$ 

DRVSTA(RI) 

Rl 

#*C7.R1 

3$ 

#7,R1 

arts 

DPINT(RI) 

8 $ 

PC. SET. IE 
DPINT(RI) 

7$ 

Rl 

6 $ 

(SP) *.a # ps 
PC 


.•DRIVE INITILIZATION ROUTINE 


SAVE RO - R5 

SAVE THE PRESENT PROCESSOR STATUS 
CHANGE THE PRIORI TV TO 5 
CLEAR ALL REQUEST QUEUES 
FIRST ADDRESS TO BE CLEARED 
LAST ADDRESS TO BE CLEARED 
CLEAR 

ARE WE DONE? 

BRANCH IF NO 
LAST ADDRESS 
INITIALIZE 
DONE? 

LOOP IF NO 

SET ALL DRIVES TO OFFLINE 


.•SETUP THE RH70/RM80 VECTOR 


FIRST ADDRESS OF RH70/RM80 
MASSBUS 1NIT 
START WITH DRIVE 0 
INIT THE DRIVE 
■DVA* NOT SET 
NORMAL RETURN 

SET DRIVE STATUS TO OFFLINE 

GO TO NEXT DRIVE 

MASK OUT UNUSED BITS 

BR IF MORE DRIVES TO GO 

START WITH DRIVE 7 

CLEAR THE PROCESSOR STATUS 

WAITING FOR DRIVE TO SWITCH PORTS 

BR NOT WAITING 

SET INTERRUPT 

DRIVE SWITCHED PORTS ? 

BR IF NOT 

GO TO THE NEXT DRIVE 

CHECK NEXT DRIVE 

RESTORE THE PROCESSOR STATUS 

RESTORE RO - R5 

BVE-BVE 



SEO 0139 
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58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 031610 

72 031612 

73 031616 

74 031622 

75 031626 

76 031634 

77 031642 

78 031644 

79 031650 

80 031652 

81 031656 

82 031664 

83 031666 
031672 
03167* 

8* 031676 

85 031700 

86 031706 

87 031712 

88 031714 

89 031720 

90 031722 

91 031730 

92 031732 

93 031736 
031742 
031744 

94 031746 

95 031752 
031756 
031760 

96 031762 
031766 
031770 

97 031772 

98 031774 

99 031776 
100 032004 

032010 
032012 
032014 

102 032016 

103 032020 

104 032026 


101 


010546 

105061 

105061 

010164 

112764 

032764 

001403 

004737 

000476 

105061 

032764 

001470 

004037 

000026 

032050 

012605 

112761 

022705 

001407 

022705 

001404 

112761 

000446 

012746 

004037 

000000 

032050 

012746 

004037 

000032 

032050 

004037 

000012 

032050 

012605 

100015 

116164 

004037 

000014 

032050 

006126 

100004 

112761 

000407 


CALL 


DRVINT : 


031242 
031252 
000010 
0001 1 1 000000 
010000 000010 

036062 

031242 1$: 

004000 000000 

035552 


000001 031252 
020026 

024026 

177777 031252 


000121 

035632 


010000 

035632 


035552 


031356 000016 
035552 


177777 031242 


2 $: 


THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 
AN RM80. IF IT IS. A **EAD-IN PRESET" IS ISSUED AND FMT16 
IS SET TO A "1". THEN MOL. DPR. DRY, AND VV ARE CHECKED TO 
INSURE THEY ARE ALL ON A '*1". AND DEPENDING ON THEIR STATE. 
DRVSTA IS SET TO THE PROPER CONDITION. 


MOV #DRVNUM.R1 

MOV RMADR.R4 

JSR RO.DRVINT 

RETURN1 
RETURN2 


MOV 

CLRB 

CLRB 

MOV 

NOVB 

BIT 

BEO 

JSR 

BR 

CLRB 

BIT 

BEO 

JSR 

RMDT 

5$ 

MOV 

HOVB 

CMP 

BEQ 

CMP 

BEQ 

NOVB 

BR 

NOV 

JSR 

RNCS1 

5$ 

NOV 

JSR 

RMOF 

5$ 

JSR 

RMDS 

5$ 

MOV 

BPL 

MOVB 

JSR 

RMER1 

5$ 

ROL 

BPL 

MOVB 

BR 


R5.-CSP) 

DRVSTA(RI) 

DRVTYP(RI) 

R1.RMCS2(R4> 

#111 .RMCS1 (R4) 

#8IT12,RMCS2(R4) 

IS 

PC. SET. IE 

4$ 

DRVSTA(RI) 

#8IT1 1 .RMCS1 (R4) 
4$ 

RO.RD.RM 


(SP)+. R5 

#1.DRVTYP(R1) 

#26026,R5 

2S 

#24026,R5 

2 $ 

#-1,DRVTYP(R1) 

4$ 

#121, -(SP) 
RO.URT.RM 


#81P2,-(SP- 

RO.URT.RM 


RO.RD.RM 


(SP)*, R5 
3$ 


DRIVE NUMBER TO R1 

UNIBUS ADDRESS OF RH70/RM80 (RMCS1) 

CALLED BY A JSR 

ERROR OCCURRED ('NED') 

NORMAL RETURN 


SAVE R5 

START DRIVE STATUS AS OFFLINE 
CLEAR THE DRIVE TYPE INDICATOR 
SELECT A DRIVE 

DO A DRIVE CLEAR COMMAND (t SEIZE DRIVE) 
.•NONEXISTENT DRIVE? 

NO BRANCH 

GO SET "IE" WITHOUT A "TRE" 

LEAVE THIS ROUTINE 
SET DRIVE STATUS TO OFFLINE 
;SEE IF DRIVE AVAILABLE 
BR IF DRIVE NOT AVAILABLE 
CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED* RETURN 
PUT DRIVE TYPE IN R5 
SET RM80 INDICATOR 
IS IT A SINGLE PORT RN80? 

BRANCH IF YES 

IS IT A DUAL PORT RN80? 

BR IF YES 

SET INDICATOR TO ’OTHER* 

EXIT 

DO A * READ-IN PRESET" 

CALL THE WRITE ROUTINE 
REGISTER OFFSET 
’NED* RETURN 
SET FMT16=1 

CALL THE WRITE ROUTINE 
REGISTER OFFSET 
’NED’ RETURN 
CALL THE READ ROUTINE 
REGISTER OFFSET 
’NED* RETURN 
AND SAVE IT IN R5 
BRANCH IF ATA=0 


ATABIT(R1),RMAS(ft4) .-CLEAR ATTENTION BIT 
RO.RD.RM 


(SP)* 

38 

#-1,DRVSfA(R1) 

48 


CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED* RETURN 
IS IT UNSAFE? 

flVuNSAFE INDICATOR 
EXIT 
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SEO 0U0 


105 

032030 

00*5105 


3$: 

COM 

R5 

.•CHECK MOL. DPR. DRV. AND VV 

106 

032032 

042705 

167077 


BIC 

r‘C<BlT12!BIT08.'8lT07!BIT06>,R5 

107 

032036 

001003 



BNE 

4$ 

.•BRANCH IF MOL. DPR. DRY. OR 

108 

032040 

112761 

000001 

031242 

MOVB 

#1.DRVSTA(R1> 

;SET DRIVE STATUS TO ONLINE 

109 

032046 

005720 


4$: 

TST 

(R0>* 

.-STEP OVER THE ERROR RETURN 

110 

032050 

012605 


5$: 

MOV 

(SPJ+.R5 

.•RESTORE R5 

111 

032052 

000200 



RTS 

RO 

.-EXIT 


S CLEAR 



^ '-n v/1 \y» •t' ^ ^ ^ 04 W W 04 Ul Oil fvj f\J fU IV> f\J f>J fNJ f>J ro 

~>J O' Ol •T' 04 ro — • O >0 00 O- V/l .t" 04 fNJ -* » O <0 OB -M O' Ol *- 04 r\J -* > O 'O 00 >J O' Ol X" OJ r\J — » O >0 00 "si O' v/1 X s * 04 f\> —I > O O 00 -O .T- 04 fo 


SEQ 0141 


L 11 
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1 .-REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 

CALL 


JSR 

PNTADR 

RETURN1 

RETURN2 


032054 

013746 

177776 


RM80: 

MOV 

032060 

013737 

031372 

177776 


MOV 

032066 

112737 

000001 

031326 


MOVB 

032074 

104412 




SAVREG 

032076 

011002 




MOV 

032100 

005062 

000016 



CLR 

032104 

111201 




MOVB 

032106 

013704 

031366 



MOV 

032112 

105761 

031242 



TSTB 

032116 

003011 




BGT 

032120 

105761 

031262 



TSTB 

032124 

001027 




BNE 

032126 

U04037 

031610 



JSR 

032132 

000421 




BR 

032134 

105761 

031242 



TSTB 

032140 

003432 




BLE 

032142 

105761 

031272 


1$: 

TSTB 

032146 

001016 




BNE 

032150 

010164 

000010 



MOV 

032154 

004037 

036200 



JSR 

032160 

C00445 




BR 

032162 

105761 

031232 


2$: 

TSTB 

032166 

001037 




BNE 

032170 

004737 

032312 



JSR 

032174 

000434 



3$: 

BR 

032176 

004737 

033410 


JSR 

032202 

000431 




BR 

032204 

004037 

036200 


4$: 

JSR 

032210 

000431 




BR 

032212 

032714 

000100 



BIT 

032216 

001023 




BNE 

032220 

004737 

036062 



JSR 

032224 

000420 




BR 

032226 

105761 

031242 


5$; 

TSTB 

032232 

002412 




BLT 

032234 

012762 

140000 

000016 


MOV 

032242 

105761 

031252 



TSTB 

032246 

001007 




BNE 

032250 

012762 

100002 

000016 


MOV 

032256 

000403 




8R 

032260 

012762 

110000 

000016 

6$: 

MOV 

032266 

104413 



7$: 

RESREG 

032270 

005720 




TST 

032272 

000401 




BR 

032274 

104413 



8$: 

RESREG 

032276 

005720 



9$: 

TST 

032300 

105037 

031326 



CLRB 


R0.RM80 .-CALL THE RM80 DRIVER 

ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
RETURN HERE IF QUEUE IS FULL 
RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
IS AN ERROR CONDITION 

SAVE THE CALLING STATUS 
DON'T ALLOW ANY RM80 INTERRUPTS 
SET "ACTIVE DRIVER" FLAG 
SAVE RO - R5 

PICKUP THE DRIVE PARAMETER BLOCK POINTER 
CLEAR THE STATUS/ERROR INDICATOR 
PICKUP THE DRIVE NUMBER 
UNIBUS ADDRESS OF RMCS1 
CHECK DRIVES STATUS 
BRANCH IF ONLINE 
TRYING TO INIT THE DRIVE 
BR IF YES 
GO INIT. THE DRIVE 
ERROR RETURN 
IS DRIVE STATUS ONLINE? 

BR IF NOT 

OUTSTANDING PORT REQUEST FOR THE DRIVE ? 

BR IF YES 
SELECT THE DRIVE 
PUT THIS REQUEST IN QUEUE 
QUEUE IS FULL 
IS THIS DRIVE ACTIVE? 

BR IF YES 
CALL THE OPTIMIZER 

GO HANDLE THE 'NED' 

PUT REQUEST IN QUEUE 
QUEUE IS FULL 
IS 'IE' SET ALREADY ? 

BR IF IT IS 
SET INTERRUPT 
RETURN. REQUEST IN QUEUE 
SEE IF DRIVE OFFLINE OR UNSAFE 
,BR IF UNSAFE 

,16(62) ;SET OFFLINE ERROR INDICATOR 
;SEE IF OFFLINE OR NONEXISTENT 
;BR IF OFFLINE 

,16(62) ; REPORT DRIVE NONEXISTENT 

;G0 TO EXIT 

,16(62) ; DRIVE IS UNSAFE 

RESTORE RO - R5 
SETUP FOR NORMAL RETURN 
FINISH UP. THEN EXIT 
RESTORE RO - R5 
CORRECT THE RETURN ADDRESS 
CLEAR "ACTIVE DRIVER" FLAG 


a#PS,-CSP;V 

RMVEC+2.i#6S 

fl.ACTDRV 

(RO) ,R2 

16(R2) 

(R2),R1 

RMADR.R4 

DRVSTA(RI) 

IS 

DPINT(RI) 

4$ 

RO.DRVINT 

3$ 

DRVSTA(RI) 

5S 

DPROS(RI) 

4$ 

R1.RMCS2(R4) 

RO.DRVQUE 

8$ 

DRVACT(RI) 

7 $ 

PC. OPT 
7$ 

PC.CI8 

7 $ 

RO.DRVQUE 

8$ 

«8IT06,(R4) 

7 $ 

PC, SET. IE 

7 $ 

DRVSTA(RI) 

6$ 

#8IT15!BIT14 

DRVTYP(RI) 

7 $ 

*BIT15!BIT01 

7$ 

ABIT15JBIT12 

(RO)* 

9$ 

(RO)* 

ACTDRV 
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SEO 0142 


58 032304 

59 032310 

60 
61 
62 

63 

64 

65 

66 

67 032312 

68 032314 

69 032320 

70 032324 

71 032326 

72 032330 

73 032336 

74 032340 

75 032346 

76 032350 

77 032354 

78 032356 

79 032362 

80 032364 

81 032370 

82 032376 

83 032402 

84 032404 

85 032412 

86 032414 

87 032420 
032424 
032426 

88 032430 

89 032434 

90 032436 

91 032444 

92 032446 

93 032452 

94 032454 

95 032460 

96 032462 

97 032470 

98 032472 

99 032476 

100 032500 

101 032506 
032512 
032514 
032520 


012637 177776 
000200 



104412 
013746 
004737 
005702 
001510 
032764 
001407 
032764 
001003 
004037 
000473 
105761 
003014 
004737 
012762 
105761 
100067 
012762 
000463 
012746 
0 4037 
000000 
032544 
032714 
001432 
122762 
002403 
004737 
000443 
005737 
002015 
136137 
001003 
005737 
100006 
146137 
004737 
000423 
004737 
000420 
112761 
010103 
006303 
012763 
000402 
004 737 
032714 
001002 


MOV (SP)+,8#PS .RETURN *PS" TO USER LEVEL 

RTS RO .RETURN TO CALLER 

OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 


177776 

036222 


004000 

000100 

031610 

031242 

036234 

140000 

031242 

110000 

000111 

035632 

004000 

000150 

033032 

031354 

031356 

031332 

031356 

032572 

032724 

177777 

035230 

033410 

000100 


CALL 


OPT: 


000000 

000012 


1$: 

2 $: 


000016 

000016 


31: 


000002 

031324 

031324 

031272 

031334 


4$: 


5$: 

6 $: 

7$: 


8 $: 

9$: 


MOV 

JSR 

SAVREG 

MOV 

JSR 

TST 

BEQ 

BIT 

BEQ 

BIT 

BNE 

JSR 

BR 

TSTB 

BGT 

JSR 

MOV 

TSTB 

BPL 

MOV 

BR 

MOV 

JSR 

RMCS1 

8$ 

BIT 

BEQ 

CMP8 

BLT 

JSR 

BR 

TST 

BGE 

BITS 

BNE 

TST 

BPL 

BICB 

JSR 

BR 

JSR 

BR 

HOVB 

MOV 

ASL 

MOV 

BR 

JSR 

BIT 

BNE 


#DRVNUM.R1 
PC. OPT 


9#PS.-(SP) 

PC.GETREQ 

R2 

9$ 

#8IT11,RMCS1(R4> 

2$ 

#8IT6,RMDS(R4) 

2$ 

RO.DRVINT 

8$ 

DRVSTA(RI) 

3$ 

PC.POPQUE 


DRVSTA(RI) 
10$ 


10 $ 

#111, -(SP) 
RO.URT.RM 


#8IT11,(R4> 

7$ 

#150.2(R2) 

4$ 

PC.CI4 
10$ 

DTUW 

ATABI T (R1 ) .SRCHWt 

5$ 

SEEKFG 
ATABI T(R1), SRCHWt 


DRIVE NUMBER TO R1 
SETUP A COMMAND 

SAVE RO - R5 
SAVE PROC. STATUS 
GET "DP8" POINTER OF REQUEST 
IS THERE A REQUEST IN QUEUE? 
NO— BRANCH TO EXIT 
;IS DVA SET? 

BRANCH IF NOT 
IS VV SET ? 

BR IF IT IS 

SEE IF DRIVE STILL ONLINE ? 
’DVA' NOT SET 
IS DRIVE ONLINE? 

YES— BRANCH 

NO— REMOVE REQUEST FROM QUEUE 


#8IT15!BIT14,16(R2) .SET OFFLINE STATUS/ERROR INDICATOR 


IS DRIVE UNSAFE 
BR TO EXIT IF NOT 


#8IT15!BIT12,16(R2> .SET UNSAFE STATUS/ERROR INDICATOR 


PC.CI1 

ioi 

PC.CI3 

10 $ 

#-1 ,DPRQS(R1) 
R1.R3 
R3 


BRANCH TO EXIT 
LOAD COMMAND ONTO THE STACK 
CALL THE WRITE ROUTINE 
RE6ISTER OFFSET 
•NED’ RETURN 
DRIVE AVAILABLE ? 

BR IF NOT 

IS THE REQUEST FOR I/O? 
YES— BRANCH 

CALL THE COMMAND INITIATOR 
BRANCH TO EXIT 
DATA TRANSFER UNDERWAY? 
YES— 60 START A SEARCH 
.’FINISHED A SEARCH ? 

IF NE, YES 
DO IMPLIED SEEKS? 

IF PL DO A SEARCH 
; CLEAR "SEARCH WAIT* 


.’START A DATA TRANSFER 


KEY 


.•START A SEARCH 
;G0 TO THE EXIT 
;SET PORT REQUEST INDICATOR 
.’SET UP TO ADDRESS WORDS 
[CONVERT TO WORD INDEX 


#15000., TIMER(R3J ;START 15 SECOND TIMER 


9$ 

PC.CI8 

#8IT06,(R4) 

10 $ 


EXIT 

PROCESS THE ’NED* 

SEE IF ‘IE’ ALREADY SET 
BR IF SET 



S P T "IE** WITHOUT A "TRE" 
RESTORE PROC. STATUS 
RESTORE RO - R5 


SEQ 0143 


I tZR' 
| SINC 


DRIVE NUMBER 
ADDRESS OF DP B 
Cl’* CI1.CI3, OR CI4 
WHERE: 

CIlsDATA TRANSFER 

CI2=SEARCH REQUESTED BY DATA XFER 

CI4=N0T DATA TRANSFER 


REMOVE REQUEST FROM "DRIVES WAIT" QUEUE 

PUT REQ. IN TRANSFER WAIT QUEUE 

DP8 ADDRESS TO R3 

RMCS1 ADDRESS 

SELECT DRIVE 

DESIRED WORD COUNT 

RMWC ADDRESS 

LOAD WORD COUNT 

LOAD BUFFER ADDRESS 

LOAD SECTOR AND TRACK 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

’NED' RETURN 

LOAD CYLINDER ADDRESS 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

•NED* RETURN 

CALL THE READ ROUTINE 

REGISTER OFFSET 

•NED* RETURN 

CLEAR 'SKIP SECTOR ERROR INHIBIT' 

CALL THE WRITE ROUTINE 
REGISTER OFFSET 
'NED' RETURN 

LOAD "COMMAND+GO". * *A1 7ftAl 6* *. AND 'PSEL" 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
'NED' RETURN 

SET 'DATA TRANSFER UNDERWAY" 


RMCS1 ADDRESS 
SELECT DRIVE 

DESIRED CYLINDER ADDRESS 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
•NED' RETURN 



B 12 


I 


i 
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158 032750 11o203 000010 

159 032754 163703 031374 

160 032760 002002 

161 032762 062703 000037 

162 032766 010346 

163 032770 116266 000011 000001 

164 032776 004037 035632 
033002 000006 
033004 033410 

165 033006 012746 000131 

166 033012 004037 035632 
033016 000000 
033020 033410 

1 67 033022 156137 031356 031324 

168 033030 000556 

169 

170 


MOVB 

SUB 

BGE 

ADD 

MOV 

MOVB 

JSR 

RMDA 

CI8 

MOV 

JSR 

RMCS1 

CIS 

BISS 

BR 


10(R2).R3 

HXWNDW.R3 

IS 

#31 . ,R3 
R3,-(SP) 

11 (R2) .1 (SP) 
RO.WRT.RH 


#131, -(SP) 
RO,URT.RM 

ATAB’T(R1),SRCHU 

CIS 


.•INITIATE A NON-I/O OPERATION 


171 

172 033032 013704 

173 033036 010164 

174 033042 116203 

175 033046 122703 
■* 76 033052 001007 

177 033054 016246 

178 033060 004037 
033064 000006 
033066 033410 

1 79 033070 000403 

180 033072 122703 

181 033076 001007 

182 033100 016246 

183 033104 004037 
033110 000034 
033112 033410 

184 033114 000517 

185 033116 122703 

186 033122 001013 

187 033124 004037 
033130 000032 
033132 033410 

188 033134 116216 

189 033140 004037 
033144 000032 
033 1 46 033410 

190 033150 000501 

191 033152 122703 

192 033156 001006 

193 033160 005046 

194 033162 004037 
033166 000034 
033170 033410 

195 033172 000470 

196 033174 122703 

19/ 033200 001014 
198 033202 004037 

033*'06 000032 
033210 033410 


031366 

000010 

000002 

000131 

CI4 

000010 

035632 


000105 

IS: 

000012 

035632 

2$: 

000115 

3$: 

035552 


000001 

035632 


000107 

4$: 

035632 


000143 

5S : 

035552 



MOV 

RMADR.R4 

MOV 

R1,RMCS2(R4) 

MOVB 

2(R2),R3 

CMPB 

#131 ,R3 

8NE 

1$ 

MOV 

10(R2),-(SP) 

JSR 

RO.WRT.RH 

RMDA 


CI8 


BR 

2S 

CMPB 

#105. R3 

BNE 

3$ 

MOV 

12(R2) ,-(SP) 

JSR 

RO.WRT.RH 

RMDC 


CI8 


BR 

14S 

CMPB 

#1 15.R3 

BNE 

4$ 

JSR 

RO.RD.RH 

RMOF 


CI8 


MOVB 

KR2MSP) 

JSR 

RO.WRT.RH 

RMOF 


CI8 


BR 

14$ 

CMPB 

#107. R3 

BNE 

5$ 

CLR 

-(SP) 

JSR 

RO.WRT.RH 

RMDC 

CIS 


BR 

14$ 

CMPB 

Y143.R3 

BNE 

6$ 

JSR 

RO.RD.RH 

RMOF 

CI8 




SEO 0144 


.•PICKUP SECTOR ADDRESS 

.•BACKUP BY MAX. SEARCH FOR I/O WINDOW 


COMBINE THE ADJUSTED SECTOR WITH 

THE DESIRED TRACK 

CALI THE WRITE ROUTINE 

REGISTER OFFSET 

•NED' RETURN 

START A SEARCH 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

•NED' RETURN 

.•ScT "SEARCH WAIT" KEY 


RMCS1 ADDRESS 
SELECT DRIVE 

PICKUP THE REQUESTED COMMAND 
IS IT A SEARCH COMMAND? 

BRANCH IF NO 

LOAD DESIRED TRACK ft SECTOR 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

'NED' RETURN 

GO LOAD CYLINDER 

IS IT A SEEK COMMAND 

BRANCH IF NO 

LOAD DESIRED CYLINDER 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

•NED' RETURN 

IS IT AN ‘ OFFSET" COMMAND? 

BR IF NO 

CALL THE READ ROUTINE 
REGISTER OFFSET 
'NED' RETURN 

BYTE WHEN LOADING THE REGISTER 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
'NED' RETURN 

IS IT A "RECALIBRATE" COMMAND? 

IF NE. NO 

CYLINDER ZERO 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

•NED’ RETURN 

CONTINUE 

IS IT A "SET FORMAT" COMMAND? 
BRANCH IF NO 
CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED* RETURN 



SEQ 0145 
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C 12 


199 033212 

200 033220 
033224 
033226 

201 033230 

202 03323? 

203 033236 

204 033240 

205 

?06 033244 

207 033252 

208 033256 

209 033262 

210 033264 

211 033266 

212 033270 

213 033274 

214 033276 

215 033304 

216 033306 

217 033312 

218 033314 

219 033316 
033322 
033324 

220 033326 

221 033332 

222 033340 

223 033344 

224 033346 

225 033352 

226 

227 

228 

229 033354 

230 033356 
033362 
033364 

231 

232 

233 

234 033366 

235 033370 

236 033376 

237 033400 

238 0334C6 

239 

240 


116266 

004037 

000032 

033410 

000436 

'.22703 

001023 

016203 

116237 
116205 
004037 
000000 
033410 
012623 
023705 
001414 
062737 
000764 
122703 
001405 
010346 
004037 
000000 
0334 iO 
004737 
052762 
005737 
100002 
004737 
000207 


010346 

004037 

000000 

033410 


006301 

012761 

006201 

112761 

000207 


000001 

035632 

000001 


MOVB 

JSR 

RMOF 

CI8 

BR 

1 (R2) ,1 (SP) 
RO.WPT.RM 

12$ 

000141 


6$: 

CMP3 

BNE 

*141, R3 

10$ 

000006 


7$: 

MOV 

6(R2).R3 

000010 

000011 

033262 


MOVB 

MOVB 

1 0 (R2) .9$ 

11 (R2),R5 

035552 


8S: 

9$: 

JSR 

RMCS1 

RO.RD.RR 


033262 


035632 


CI8 

MOV 

CMP 

BEQ 


(SP)+.(R3)+ 

9$.R5 

12i 


000002 

033262 


ADD 

*2,9$ 



BR 

8$ 

000145 


10$: 

CMP8 

*145, R3 



BEQ 

12$ 



11$: 

MOV 

R3,-(SP> 

035632 



JSR 

RMCS1 

RO.WRT.RM 




CI£ 


036234 


12$: 

JSR 

PC.POPQUE 

000200 

000016 


BIS 

*8IT07.16(R2) 

031330 



TST 

SAVEFG 



BPL 

13$ 

035744 



JSR 

PC.SVRH70 


13$: 

RTS 

PC 


.•COMBINE "FMT16".‘KI" ,‘HCI", l "SSEI 
.-CALL THE WRITE ROUTINE 
.•REGISTER OFFSET 
.•’NED’ RETURN 


IS IT A "GET REGISTER" COMMAND? 
BRANCH IF NO 

POINTS TO 1ST ADDRESS OF WHERE 
TO PUT THE REGISTER(S) 

INIT. THE INDEX FOR THE FIRST REG. 
INDEX OF LAST REG. TO MOVE 
READ RM80 REGISTER 
INDEX OF REG. TO READ 

GET THE CONTENTS OF RH70/RM80 REG. 
LAST REG. BEEN READ? 

GET OUT IF YES 

INCREASE THE INDEX BY 2 

LOOP— MORE TO READ 

IS IT A ‘‘SELECT DRIVE" COMMAND? 

BRANCH IF YES 

LOAD THE COMMAND 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

•NED’ RETURN 

REMOVE REQ. FROM QUEUE 

SET THE r t>0NE" BIT 

SAVE THE RH70/RM80 REGISTERS? 

BRANCH IF NO 

YES— GO SAVE THE REGISTERS 
RETURN TO USER 


.•START A NON-DATA TRANSFER OPERATION 


14$: 


MOV 

JSR 

RMCS1 

CI8 


R3,-(SP) 

RO.WRT.RM 


.•START THE COMMAND TIMER 



CIS: 

ASL 

R1 

023420 

031334 

MOV 

*10000., TIMER(RI) 



A SR 

R1 

000001 

031232 

MOVB 

*1,DRVACT(R1) ; 


RTS 

PC 


LOAD THE COMMAND 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
'NED' RETURN 


;SET A 10 SECOND TIMER 


.•PROCESS A NON-EXISTENT DRIVE 


! 242 

033410 

104412 


CI8: 

SAVREG 


243 

033412 

105761 

031232 


TSTB 

DPVACT(RI) 

? 44 

033416 

001431 



BEQ 

3$ 

j 245 

033420 

013702 

031322 


MOV 

TRNSWT.R2 

246 

033424 

020137 

031354 


CMP 

R1.DTUW 

247 

0334 30 

001402 



BEQ 

1$ 

248 

033432 

004737 

036222 


JSR 

PC.GETREQ 

249 

033436 

005702 


1$: 

TST 

R2 


SAVE RO - R5 
DRIVE ACTIVE? 

GET^THE* "TRANSFER WAIT" QUEUE 

DID THIS DRIVE HAVE AN I/O IN PROGRESS? 

BRANCH IF YES 

GET THE DPB POINTER 

QUEUE ENTRY FOR DRIVE ? 



SEO 0K6 


C i 
GE 


D 12 
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250 

033440 

001403 




BEO 

2 $ 

251 

033442 

012762 

100002 

000016 


MOV 

#81 T1 5 ! BIT01 , 

252 

033450 

012763 

177777 

031334 

21: 

MOV 

#-1,TIMER(R3) 

253 

033456 

105061 

031232 



CLR 8 

CRVACT(RI) 

254 

033462 

020137 

031354 



CMP 

R1.DTUU 

255 

0334 06 

001005 




BNE 

3$ 

256 

033470 

012737 

177777 

031354 


MOV 

♦-1.DTUW 

257 

033476 

005037 

031322 



CLR 

TRNSWT 

258 

033502 

004737 

036166 


3$: 

JSR 

PC.EMPTYQ 

259 

033506 

105061 

031242 



CLR 8 

DRVSTA(RI) 

260 

033512 

105061 

031252 



CLR 8 

DRVTYP(RI) 

261 

033516 

004737 

036062 


4$: 

JSR 

PC, SET. IE 

262 

033522 

104413 




RESREG 


263 

033524 

000207 




RTS 

PC 


:BR IF NOT 

6(ft2> ; SE T 'DRIVE NON-EXISTENT' INDICATOR 

.-STOP THE TIMER 
;SET "DRIVE ACTIVE" TO IDLE 
;IS THIS DRIVE SETUP FOR A TRANSFER 
;BR IF NOT 

.•RESET THE INDICATOR 
.-CLEAR THE TRANSFER QUEUE 
.•CLEAR THE DRIVE'S QUEUE 
;SET DRIVE TO OFFLINE 
.•CLEAR THE DRIVE TYPE INDICATOR 
.-SET "IE" WITHOUT , *TRE" 

.-RESTORE RO - R5 
.•RETURN 


i 


i 
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E 12 


SEO 0147 


i CZl 

I DPI 


1 


; INTERRUPT SERVICE ROUTINE 


2 

3 

033526 

112737 

000001 

C31326 

I SR: 

MOVB 

#1 .ACTDRV 

4 

033534 

104412 




SAVREG 


5 

033536 

013704 

031366 



MOV 

RMADR.R4 

6 

033542 

013701 

031354 



MOV 

DTUW.R1 

7 

033546 

002402 




BLT 

IS 

8 

033550 

004737 

033570 



JSR 

PC.TD 

9 

033554 

004737 

034202 


IS: 

JSR 

PC. SC 

10 

033560 

104413 




RESREG 


11 

033562 

105037 

031326 



CLRB 

ACTDRV 

12 

1 X 

033566 

0H0002 




RTI 


14 

1 C 





.•TRANSFER DONE 

ROUTINE 

1 5 
16 

033570 

105061 

031232 


TD: 

CLRB 

DRVACT(RI) ; 

17 

033574 

012737 

177777 

031354 


MOV 

#-1.DTUW 

18 

033602 

006301 




ASL 

Rl 

19 

033604 

012761 

177777 

031334 


MOV 

#-1 ,T1MER(R1) ; 

20 

033612 

006201 




ASR 

Rl 

21 

033614 

013702 

031322 



MOV 

TRNSWT.R2 

22 

033620 

005037 

031322 



CLR 

TRNSWT 

23 

033624 

052762 

000200 

000016 


BIS 

#BIT07,16(R2> 

24 

033632 

010164 

000010 



MOV 

R1.RMCS2(R4) 

25 

033636 

004037 

035552 



JSR 

RO.RD.RM 


033642 

000000 




RMCS1 



033644 

033410 




CI8 


26 

033646 

006126 




ROL 

ISP)* 

27 

033650 

100413 




BMI 

3S 

28 

033652 

005737 

031330 



TST 

SAVEFG 

29 

033656 

100002 




BPL 

IS 

30 

033660 

004737 

035744 



JSR 

PC.SVRH70 

38 

033&64 

004737 

032312 


IS: 

JSR 

PC. OPT 

40 

033670 

000207 




RTS 

PC 

41 

033672 

012714 

000113 


2S: 

MOV 

#113. (R4) 

42 

033676 

0002C7 




RTS 

PC 

44 

033700 




3S: 




SET "ACTIVE DRIVER" FLAG 
SAVE RO - R5 
ADDRESS OF RMCS1 

GET r DATA TRANSFER UNDERWAY" INDICATOR 

BRANCH IF NO DATA TRANSFER UNDERWAY 

CALL TRANSFER DONE 

CALL SPECIAL CONDITIONS 

RESTORE RO - R5 

CLEAR "ACTIVE DRIVC K" FLAG 

RETURN 


.•CANCEL TIMEOUT 

GET ‘DP8“ ADDRESS FROM THE 
TRANSFER WAIT QUEUE — CLEAR QUEUE 
SET DONE 

SELECT THE DRIVE 
CALL THE READ ROUTINE 
REGISTER OFFSET 
'NED' RETURN 
IS TRE=1 ? 

BR IF YES 

SAVE THE RH70/RM80 REGISTERS? 
BRANCH IF NO 
YES— SAVE THE REGISTERS 
CALL OPTIMIZER 

perinni 

RELEASE THE DRIVE 
RETURN 



033704 

000014 


RMER1 


033706 

033410 


CI8 

45 

033710 

032726 

000600 

BIT 

46 

033714 

001016 


B NE 

47 

033716 

004037 

G.’5552 

JSR 


033722 

000042 


RMER2 


033724 

033410 


CI8 

43 

033726 

032726 

000040 

BIT 

49 

033732 

001407 


BEQ 

50 

033734 

004037 

035552 

JSR 


033740 

000032 


RMOF 


033742 

033410 


Cl 8 

51 

033744 

032726 

001000 

BIT 

52 

033750 

001416 


BEQ 

53 

033752 

052762 

100100 000016 4S: 

BIS 

54 

033760 

004737 

036166 

JSR 

55 

033764 

C04737 

035744 

JSR 

56 

033770 

012714 

040111 

MOV 


RO.RD.RM 


CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED' RETURN 

;SEE IF HCRC OR HCE ERRORS 
IF NE YES 

CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED* RETURN 

SEE IF SKIP SECTOR ERROR 
IF EQ, NO 

CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED' RETURN 

IS THE INHIBIT BIT ALREADY SET 
■iMr .IF EQ. NO 

#BIT15!BIT06,16(A2> ;$ET DATA ERROR FLAG „ „ 
PC.EMPTYQ ;EHPtY THE ‘DRIVE'S WAIT" QUEUE 

PC.SVRH70 .SAVE THE RH70/RM80 REGISTERS 

#46l11,(R4> .-ISSUE A ‘DRIVE CLEAR r ‘ 


#8IT8.'8IT7,<SP) + 
4S 

RO.RD.RM 


#SSE.(SP)+ 

4S 

RO.RD.RM 


#SSEI.(SP)+ 
SKIP 


J 
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6C 034000 

61 C34004 

62 

63 

64 

65 034006 

66 034012 

67 034016 

68 034022 

72 034030 

82 034032 

84 034036 

101 034042 

102 

103 034044 
034044 
034050 
034052 

105 034054 

106 034060 

107 034064 

108 034066 

109 034072 

110 034074 

111 034076 

115 03410? 

117 034104 
C34110 
034112 

118 034114 

119 034116 
034122 
034124 

120 C 341 26 

121 034132 
034136 
034140 

122 034142 

123 034146 
034152 
034154 

124 034156 

125 034164 

126 034170 
034174 
034176 

127 034200 

128 

151 

152 

153 034202 

154 034206 

155 034210 
034214 
034216 

156 C 34220 

157 034222 


012714 

000207 


010137 

010237 

005062 

132762 

0C1405 

016200 

016203 

000417 


004037 

000002 

033410 

166216 

042716 

011603 

066216 

012600 

006303 

066203 

010346 

004037 

000004 

033410 

010046 

004037 

000002 

033410 

012714 

004037 

000032 

033410 

052716 

004037 

000032 

033410 

012762 

016246 

004037 

000000 

033410 

000207 


116403 
001014 
004037 
000 000 
033410 
106126 
100405 


000113 


031354 

031322 

000016 

000002 

000004 

000006 


035552 


000004 

000377 

000004 


000006 

C35632 


035632 


040111 

C35552 


001000 

035632 


000001 

000002 

035632 


MOV #113. (R4) 

RTS PC 

;SKIP SECTOR HANDLING ROUTINE 


SKIP: 


000002 


000020 


JSR 

RMWC 

CI8 

sue 

BIC 

MOV 

ADD 

MOV 

ASL 

ADD 

MOV 

JSR 

RMBA 

CI8 

MOV 

JSR 

RMWC 

CI8 

MOV 

JSR 

RMOF 

Cl 8 

BIS 

JSR 

RMOF 

C18 

MOV 

MOV 

JSR 

RMCS1 

CI8 

RTS 


.'SPECIAL CONDITION ROUTINE 


R1.DTUW 

R2.TRNSWT 

$TATUS(R2) 

#2,SCOMND(R2) 

IS 

SUCNT (R2) ,R0 
S8UF (R2) ,R3 

2 $ 


RO.RD.RM 


SWCNTCR2), (SP) 
#377. (SP) 
(SPI.R3 

SWCNT(R2).(SP) 

(SPI+.RO 

R3 

S8UF (R2).R3 

R3,-(SP) 

RO.WRT.RM 


RO. -(SP) 
RO.WRT.RM 


#401 11, (R4) 
RO.RD.RM 


#SSEI,(SP) 

RO.WRT.RM 


#1.SSSENB(R2> 
$C0NND(R2) ,-(SP) 
RO.WRT.RM 


000016 

035552 


M0V8 

BNE 

JSR 

RMCS1 

CI8 

R0L8 

BMI 


RMAS(R4) ,R3 

2 $ 

RO.RD.RM 


<SP> + 

1 $ 


.'ISSUE A RELEASE TO THE DRIVE 
.'RETURN 


SEQ 0148 


LOAD ACTIVE DRIVE NUMBER 
RESTORE TRANSFER FLAG 
CLEAR THE DRIVER STATUS 
SEE IF HEADER OTDER 
IF EQ NO 

STARTING WORD COUNT 
STARTING BUFFER ADDRESS 


CALL THE READ ROUTINE 
REGISTER OFFSET 
'NED' RETURN 

CALCULATE THE NUMBER OF WORD TRANSFERED 

LEAVE ONLY SECTOR MULTIPLES 

COPY THE DIFFERENCE 

NEW WORD COUNT 

COPY THE WORD COUNT 

CONVERT WORD DIFFERENCE TO A BYTE DIFFERENCE 

NEW BUFFER ADDRESS 

BUFFER ADDRESS 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

'NED' RETURN 

WORD COUNT 

CALL THE WRITE ROUTINE 
REGISTER OFFSET 
'NED' RETURN 
CLEAR THE DRIVE 
CALL THE READ ROUTINE 
REGISTER OFFSET 
'NED' RETURN 
SET THE INHIBIT BIT 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
'NED* RETURN 

INDICATE THAT SKIP SECTORING WAS ENABLED 
;GET THE ORIGINAL COMMAND 
CALL THE WRITE ROUTINE 
REGISTER OFFSET 
'NED' RETURN 
RETURN 


READ ‘UMAS" 

BRANCH IF ANY 'ATA' BITS SET 
CALL THE READ ROUTINE 
REGISTER OFFSET 
•NED' RETURN 
IS r, IE* -1? 

YES, NO DRIVES TO CHECK 



J 



G 12 
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158 03422^ 
034230 

159 034232 

160 034236 

161 034240 

162 034242 

163 034244 

164 034250 

165 

166 

167 

168 034252 

169 034254 

170 034256 

171 034260 

172 034262 

173 034264 

174 034266 

175 

176 

177 

178 034270 

179 034274 

180 034276 

181 034302 

182 034306 

183 034310 

184 034314 

185 034320 

186 

187 

188 

189 034322 

190 

191 034326 

192 034332 

193 034334 

194 034342 

195 034344 

196 034346 
034352 

197 034354 

198 034356 
034356 
03** 362 

199 034364 

200 
201 
202 

203 034366 

204 034370 

205 034376 

206 034400 

207 034404 

208 034410 
034414 
034416 


004037 

104001 

004737 

000207 

005046 

110316 

012703 

005001 


030316 

001005 

005201 

1U6303 

001373 

005726 

000207 


105761 

001402 

000137 

105761 

001402 

000137 

105761 

001022 


004737 

105761 

001351 

032737 

001005 

011605 

004037 

104002 

000740 

004037 

104005 

000734 


006301 
012761 
006201 
004737 036222 
010164 000010 
004037 035552 
000012 
034540 


036252 


JSR 

RO.ES.SAV 


EMT 

1 

036062 


JSR 

PC. SET. IE 

IS: 

RTS 

PC 


2S: 

CLR 

-<SP> 


HOVB 

R3,(SP> 

000001 


MOV 

#1 ,R3 


CLR 

R1 


SAVE THE ADDRESS IN 'SESCAPE* 
REPORT AN ILLEGAL INTERRUPT 
SET INTERRUPT ENABLE 
RETURN 

PROCESS ALL DRIVES THAT HAVE 
AN "ATA* -1 


.•PROCESS ALL DRIVES WITH ••ATA" SET 


SC3: 

SC4: 


BIT 

R3.(SP> 

8NE 

sc5 

INC 

R1 

AS LB 

R3 

BNE 

SC3 

TST 

(SP)+ 

RTS 

PC 


;ATA=1? 

; YES— BRANCH 

.-MOVE TO THE NEXT DRIVE 

.•BRANCH IF MORE TO CHECK? 
.•CLEAN OFF THE STACK 
.•RETURN TO USER 


.-DETERMINE IF THE DRIVE WITH "ATA** SET IS ACTIVE WITH A COMMAND 

INITIALIZING THE DRIVE ? 

qd ft NOT 

PROCESS THE DRIVE 
PORT REQUEST OUTSTANDING ? 

BR IF NOT 

START THE OUTSTANDING COMMAND 
DRIVE ACTIVE ? 

BR IF ACTIVE 


SAVE RMDS. RMER1 AND RMER2 
ALSO DO A DRIVE INIT (DRVINT) 

TRYING TO INIT THE DRIVE ? 

BR IF YES, CHECK ON MORE DRIVES 
ADDRESS PLUG CHANGED ? 

BR IF YES 

PICKUP (RMAS) BEFORE THE ERROR CALL 
SAVE THE ADDRESS IN 'SESCAPE' 

REPORT THE UNEXPECTED ATTENTION 
GO CHECK FOR MORE ATA*S 

SAVE THE ADDRESS IN 'SESCAPE' 

REPORT THE ADDRESS PLUG CHANGE 
CHECK FOR MORE DRIVES 

;THE DRIVE COMPLETED A NON-I/O COMMAND 


031262 

SC5: 

TST8 

BEQ 

JMP 

DPINT(RI) 

IS 

SC13 

034674 


031272 

IS: 

TSTB 

DPRQS(RI) 


BEQ 

2S 

034674 


JMP 

SC13 

031232 

2S: 

TSTB 

DRVACT(RI) 


BNE 

SC6 


.THE 

DRIVE WAS 

NOT ACTIVE, 

034632 


JSR 

PC.SC12 

031262 


TSTB 

DPINT(RI) 


BNE 

SC4 

020000 

031232 

BIT 

4BIT13.RME 


BNE 

4$ 


3S: 

MOV 

(SPJ.R5 

036252 


JSR 

RO.ES.SAV 


EMT 

2 



BR 

SC4 

036252 

4S: 

JSR 

RO.ES.SAV 


EMT 

5 



BR 

SC4 


177777 031334 


SC6: 


ASL 

MOV 

ASR 

JSR 

MOV 

JSR 

RMDS 

SC8 


R1 

f-I.TIMER(RI) 

R1 

PC.GETREQ 

R1,RMCS2(R4) 

RO.RD.RM 


.•SETUP TO ADDRESS WORDS 

.•STOP THE TIMER 

.•RESTORE THE DRIVE ADDRESS 

;GET THE DPB POINTER FROM THE OUEUE 

.•SELECT DRIVE 

.-CALL THE READ ROUTINE 

.•REGISTER OFFSET 

.-'NED' RETURN 



H 12 


SEQ 0150 
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209 03*420 

210 034422 

211 034424 
2V 034426 

034432 

03*434 

213 03*436 

214 034440 

215 034444 

216 034450 
034454 
034456 

217 034460 

218 034462 

2 19 034464 

220 034472 

221 034474 

222 034502 

223 034506 

224 034512 

225 034520 

226 034524 
034530 
034532 

227 034534 

228 

229 

230 

231 034540 

232 034544 

233 034550 

234 

235 

236 

237 034554 

238 034560 

239 

240 034566 

241 034570 

242 034574 

243 03460? 

244 C \4606 
?4 C 034610 
24c 034614 

247 034622 

248 05462/ 

249 

250 

251 

252 034632 

253 054636 
25* 034644 
25S 034652 
25*) 034660 

257 034664 

258 034666 
^5 ? 0 *4670 


011605 

006126 

100053 

004037 

000014 

034540 

012605 

004737 

012746 

004037 

000000 

034540 

006105 

100404 

052762 

000403 

052762 

105061 

00/737 

146137 

012746 

004037 

000000 

034540 

000137 


004737 

004737 

000137 


105061 

136137 

001012 

004737 

052762 

005737 

100002 

004737 

116164 

004737 

000137 


010164 

016437 

016437 

016437 

004037 

000401 

000207 

005726 


035552 


035744 

000111 

035632 


10C240 000016 


100220 

031232 

036166 

031356 

000113 

C35632 


034256 


036166 

033410 

034256 


031232 

031356 


036234 

000200 

031330 

035744 

031356 

032312 

034256 


000010 
000012 
0000 J 4 
000042 
031610 


000016 


031324 


MOV 

ROL 

BPL 

JSR 

RMER1 

SC8 

MOV 

JSR 

MOV 

JSR 

RMCS1 

SC8 

ROL 

BMI 

BIS 

BR 

BIS 

CLRB 

JSR 

BICB 

MOV 

JSR 

RMCS1 

SC8 

JMP 


(SP) ,R5 

(SP)* 

SC11 

RO.RD.RM 


(SP)*.R5 
PC.SVRH70 
#111, -(SP) 
RO.WRT.RM 


AND PUT IT IN R5 
WAS THERE AN ERROR? 

BR IF NO ERROR 

CALL THE READ ROUTINE 

REGISTER OFFSET 

•NED’ RETURN 

AND SAVE IT IN R5 

SAVE RH70/RM80 REGISTERS 

ISSUE A DRIVE CLEAR 

CALL THE WRITE ROUTINE 

REGISTER OFFSET 

'NED 1 RETURN 

was 'Unsafe" condition =i? 

BRANCH IF YES 

I5,16(R2) .INFORM USER OF ERROR 


#BI T 1 5 ! B I T07 ! 81 T&5 , 1 6 ( R2) .INFORM USER OF ERRI 

2$ 

#8IT15 !BIT07!8IT04,16(R2) .-INFORM USER OF UNSAFE ERROR 
DRVACT(RI) .SET DRIVE TO IDLE 

PC.EMPTYQ :DUMP THE QUEUE 

ATABIT(R1 ) .SRCHWT .-CLEAR THE SEARCH WAIT FLAG 
#113,-(SP> .-RELEASE COMMAND 

RO.WRT.RM ;CALL THE WRITE ROUTINE 

.-REGISTER OFFSET 
.'NED' RETURN 

SC4 ; CHECK FOR MORE DRIVES 


; ISR ’NED" PROCESSOR 


PC.EMPTYQ 
PC. CIS 
SC4 


CLEAR THE DRIVE'S QUEUE 
PROCESS THE 'NED' 

CHECK MORE DRIVES 


; NON-I/O COMMAND TERMINATION ROUTINE 


031324 


000016 


000016 


BNE 

JSR 

BIS 

TST 

BPL 

JSR 

M0V8 

JSR 

JMP 


DRVACT(RI) ;SET DRIVE IDLE 

ATAaiTCRI), SRCHWT .‘DOING A SEARCH OPERATION FOR 

;AN I/O COMMAND? 

1ft * A&AJtirU IF VFft 

PC.POPQUE -REMOVE REOUEST FROM QUEUE 

#BIT07.16(R2> .-SET *t>ONE" BIT 
SAVEFG .-SAVE THE REGISTERS? 

IS "BRANCH IF NO 

PC.SVRH70 ; YES— -SAVE ALL OF THE RH70/RM80 REG'S 

ATABIT<R1).RNAS(fc4) ;CLEAR ATTENTION 8IT 
PC .OPT .-START A REQUEST 

SC4 .-CHECK FOR MORE DRIVES 


.-ERROR PROCESSOR 


031224 

031226 

031230 


R1.RMCS2(R4> .-SELECT DRIVE 
RM6s(R4).RMERRS .-SAVE THE FOUR REGISTERS THAT 
RMER1(R4$.RMERRS*2 .‘WILL TELL US SOMETHING 
RMER2(R4) .RMERRS+4 


RO.DRVINT 

1$ 

PC 

(SP) + 


INIT. THE STATE OF THE DRIVE 

TAKE ERROR EXIT 

RETURN 

POP ?C OFF OF THE STACK 
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SEQ 0151 


261 

262 

263 

264 


270 

271 

272 

273 

274 


280 

281 


285 


291 


034672 

000722 




BA 





.DUAL 

PORT RE 

034674 

006301 



SC 1 3 : 

ASL 

034676 

012761 

177777 

031334 


MOV 

034704 

006201 




ASR 

034706 

010164 

000010 



MOV 

034712 

116164 

031356 

000016 


MOVB 

034720 

032714 

004000 



BIT 

034724 

001006 




BNE 

034726 

006301 




ASL 

034730 

012761 

035230 

031334 


MOV 

034736 

006201 




ASR 

034740 

000433 




BR 

034742 

105761 

031262 


IS: 

TSTB 

034746 

001424 




BEQ 

034750 

105061 

031262 



CLRB 

034754 

004037 

031610 



JSR 

034760 

000240 




NOP 

034762 

105761 

031242 



TSTB 

034766 

003014 




BGT 

034770 

005702 




TST 

034772 

001416 




BEQ 

034774 

004737 

036222 



JSR 

035000 

052762 

140000 

000016 


BIS 

035006 

004737 

035744 



JSR 

035012 

004737 

036166 



JSR 

035016 

000404 




BR 

035020 

105061 

031272 


2S: 

CLRB 

035024 

004737 

032312 



JSR 

035030 

000137 

034256 


3S: 

JMP 


SC 8 


.•PROCESS THE PARI TV ERROR 


CZRl 

ASt 


.-SETUP TO ADDRESS WORDS 
;STOP THE TIMER 


R1 

#-1.TIMER(Rl) 

R1 

R1.RMCS2(R4) ^SELECT THE DRIVE 

ATABIT(R1>,RMAS(&4> ;CLEAR THE ATTENTION BIT 
#8IT11,(R4) .DRIVE AVAILABLE ? 

IS ;8R IF AVAILABLE 

#15000.. TIMER(RI) .'START 15 SECOND TIMER AGAIN 
R1 

3$ .-EXIT 

DPINT(RI) .'INITIALIZING THE DRIVE ? 

2S .8 R IF NOT 

DPINT(RI) .'CLEAR THE INIT INDICATOR 

RO.DRVINT ;G0 INIT THE DRIVE 

.•DUMMY PARITY ERROR RETURN 
DRVSTA(RI) .DRIVE ONLINE ? 

2S ;BR IF YES — START ORDER 

R2 .'QUEUE ENTRY FOR THE DRIVE 

3$ ;BR IF NOT 

PC.GETREQ .'GET DPB ADDRESS „ „ 

#8IT15!BIT14.16(R2) .'INFORM USER THAT DRIVE OFFLINE 


PC.SVRH70 

PC.EMPTYQ 

3S 

DPRQS(RI) 
PC. OPT 
SC4 


SAVE THE REGISTERS 
EMPTY THE REQUEST QUEUE 

CLEAR THE PORT REQUEST INDICATOR 
START THE PENDING REQUEST 
PROCESS OTHER DRIVES 


i 



SEO 0152 
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J 12 


1 


RM80 TIMER ROUTINE 


2 





.CALL 



3 






MOV 

#TIME.-(SP) 

4 

C 






JSR 

PC. RMTMR 

6 

035034 

005737 

031326 


RMTMR: 

TST 

ACTDRV 

7 

035040 

001030 




BNE 

4$ 

8 

035042 

112737 

000001 

031327 


M0V8 

#1 .ACTSTR 

9 

035050 

104412 




SAVREG 

R1 

10 

035052 

005001 




CLR 

11 

035054 

005003 




CLR 

R3 

12 

035056 

005763 

031334 


IS: 

TST 

TIMER(R3) 

13 

035062 

002407 




BLT 

2$ 

14 

15 

035064 

035072 

166663 

003003 

000002 

031334 


SUB 

BGT 

2(SP).TIMER(R3) 

2$ 

16 

035074 

004737 

035126 



JSR 

PC. STO 

17 

035100 

000405 




BR 

3$ 

18 

035102 

005201 



2$: 

INC 

R1 

19 

035104 

005723 




TST 

(R3> + 

20 

035106 

022701 

00U10 



CMP 

#8. ,R1 

21 

035112 

003361 



3$: 

BGT 

IS 

22 

035114 

104413 



RESREG 


23 

035116 

105037 

031327 



CLRB 

ACTSTR 

24 

035122 

012616 



4$: 

MOV 

<SP)*, (SP) 

25 

035124 

000207 




RTS 

PC 


.•ELASPED TINE IN MILLISECONDS ON THE STACK 
.-CALL RM80 TINE ROUTINE 

CHECK "ACTDRV t ACTSTR” 

IF NON ZERO EXIT 
SET ,, ACTSTR*‘ 

SAVE RO - R5 
START WITH DRIVE 0 


IS THE TIMER RUNNING? 

BRANCH IF .VO 

COUNT THE INTERVAL 

BR IF NO SOFTWARE TIMEOUT 

CALL SOFTWARE TIMEOUT ROUTINE 

GO TO THE EXIT 

MOVE TO NEXT DRIVE 

OUT OF DRIVES? 

BRANCH IF NO 
RESTORE RO - R5 

ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 

ADJUST THE STACK 

RETURN 


26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


SOFTWARE TIMEOUT ROUTINE 


NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
OR GREATER 


CALL: 


STO 

MOV 

JSR 

RETURN 


37 

035126 

010146 



STO: 

MOV 

38 

035130 

010346 




MOV 

39 

035132 

013704 

031366 



MOV 

40 

035136 

010164 

000010 



MOV 

41 

035142 

004037 

035552 



JSR 


035146 

000012 




RMDS 


035150 

035440 




ST05 

42 

035152 

105726 




TSTB 

43 

035154 

100473 




BMI 

44 

035156 

105761 

031262 


ST01: 

TSTB 

45 

035162 

001070 




BNE 

46 

035164 

105761 

031272 



TSTB 

47 

035170 

001065 




BNE 

48 

035172 

013702 

031322 



MOV 

49 

035176 

020137 

031354 



CMP 

50 

035202 

001402 




BEQ 

51 

035204 

004737 

036222 



JSR 

52 

035210 

052762 

101000 

000016 

IS: 

BIS 

53 

035216 

004737 

035744 



JSR 

54 

035222 

012764 

000040 

000010 


MOV 

55 

035230 

105061 

031232 



CLRB 


fDRVNUH.RI 
PC. STO 


RI.-(SP) 

R3,-(SP) 

RMADR.R4 

R1,RHCS2(R4) 

RO.RD.RM 


.'DRIVE NUMBER 
.•CALL 


SAVE R1 
SAVE R3 

GET ADDRESS OF "RMCSI* 
SELECT THE DRIVE 
CALL THE READ ROUTINE 
REGISTER OFFSET 


•NED* RETURN 
IS 'DRY -1? 


(SPH 

ST02 ;BR IF YES 

DPINT(RI) .-TRYING TO INTIALIZE THE DRIVE ? 

ST02 ;BR IF YES 

DPROS(RI) .OUTSTANDING PORT REQUEST FOR THE DRIVE ? 

ST02 ;8R IF YES 

TRNSWT.R2 .-PICKUP TRANSFER WAIT QUEUE 

R1.DTUW .-TRANSFER UNDERWAY ON THIS DRIVE? 

U .-BRANCH IF YES 

PC.GETREQ ;GET DPB ADDRESS 

/F8IT15!BIT09.16(ft2) .‘SET THE ERROR FLAGS 
PC.SVRH70 .-SAVE RH70/RM80 REGISTERS 

I8IT05.RMCS2(R4) ;* , INIT'* THE HASS BUS 
DRVACT(PI) .DRIVE IS IDLE 


SEQ 0153 
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SINGLE/DUAL PORT RH70/RM80 DRIVER (REV 0.17) 




56 

035234 

005001 




CLR 

R1 

START WITH DRIVE 0 

57 

035236 

005003 




CLR 

R3 


58 

035240 

004037 

031610 


2S: 

JSR 

RO.DRVINT 

INIT. THIS DRIVE 

59 

035244 

000475 




BR 

ST05 

PARI TV ERROR RETURN 

60 

035246 

105761 

031232 



TSTB 

DRVACT(RI) 

DRIVE IDLE BEFORE THE INIT.? 

61 

035252 

001414 




BE 6 

4$ 

YES — BRANCH 

62 

035254 

013702 

031322 



MOV 

TRNSWT.R2 

GET TRANSFER WAIT QUEUE 

63 

035260 

023701 

031354 



CMP 

DTUU.R1 

WAS THERE I/O ON THIS DRIVE? 

64 

035264 

001402 




BEQ 

3$ 

YES— BRANCH 

65 

035266 

004737 

036222 



JSR 

PC.GETREQ 

GET THE DPB POINTER FROM QUEUE 

66 

035272 

052762 

100400 

000016 

3$: 

BIS 

#BIT15!BIT08.16(R2) .‘INFORM USER OF INIT. 

67 

035300 

105061 

031232 



CLRB 

DRVACT(RI) 

SET DRIVE ACTIVE TO IDLE 

68 

035304 

012763 

177777 

031334 

4$: 

MOV 

#-1,TIMER(R3> 

STOP THE TIMER 

69 

035312 

005723 




TST 

(R3) + 

UPDATE THE INDEX 

70 

035314 

005201 




INC 

R1 

INCREMENT THE DRIVE NUMBER 

71 

035316 

022701 

000010 



CMP 

M8. ,R1 

LAST DRIVE BEEN CHECKED? 

72 

035322 

003346 




BGT 

2$ 

NO— LOOP 

73 

035324 

012737 

177777 

031354 


MOV 

f-I.DTUW 

NO DATA TRANSFERS UNDERWAY 

74 

035332 

005037 

031322 



CLR 

TRNSWT 

CLEAR TRANSFER WAIT QUEUE 

75 

035336 

004737 

036134 



JSR 

PC.CLRQUE 

CLEAR ALL REQUEST QUEUES 

76 

035342 

000500 




BR 

ST09 

EXIT 

77 

035344 

116405 

000016 


ST02: 

MOVB 

RMAS(R4).R5 

READ ATTENTION REG 

78 

035350 

136105 

031356 



BITS 

ATA8IT(R1).R5 

IS ATTENTION FOR THIS DRIVE UP ? 

79 

035354 

001017 




ONE 

ST03 

YES— BRANCH 

80 

035356 

105761 

031262 



TSTB 

DPINT(RI) 

TRYING TO INTIALIZE THE DRIVE ? 

81 

035362 

001031 




BNE 

ST06 

BR IF YES - DRIVE NOT ONLINE 

82 

035364 

105761 

031272 



TSTB 

DPRQS(RI) 

OUTSTANDING PORT REQUEST FOR THE DRIVE ? 

83 

035370 

001045 




BNE 

ST07 

BR IF YES - NO RESPONSE TO REQUEST 

84 

035372 

020137 

031354 



CMP 

R1.DTUW 

DATA TRANSFER UNDERWAY FOR THIS DRIVE 

85 

035376 

001267 




BNE 

ST01 

BR IF NO 

86 

035400 

004037 

035552 



JSR 

RO.RD.RM 

CALL THE READ ROUTINE 


035404 

000000 




RMCS1 


REGISTER OFFSET 


035406 

035440 




ST05 


'NED’ RETURN 

87 

035410 

105726 




TSTB 

(SP) + 


88 

035412 

100261 




BPL 

ST01 

BR IF 'W=0 

89 

035414 

105761 

031262 


ST03: 

TSTB 

DPINT(RI) 

INITIALIZING THE DRIVE ? 

90 

035420 

001003 




BNE 

1$ 

B R IF INIT PENDING 

91 

035422 

105761 

031272 



TSTB 

DPRQS(RI) 

PORT REQUEST PENDING ? 

92 

035426 

001446 




BEQ 

ST09 

BR IF NOT 

93 

035430 

Cl 2763 

177777 

031334 

1$: 

MOV 

#-1. TIMER (R3> 

STOP THE TIMER 

94 

035436 

000442 




BR 

ST09 

EXIT 

95 

035440 

004737 

033410 


Sf05: 

JSR 

PC.CI8 

GO HANDLE THE ‘NED’ 

96 

035444 

000437 




BR 

ST09 


97 

035446 

105061 

031262 


ST06: 

CLRB 

DPINT (R1) 

CLEAR THE INITIALIZE INDICATOR 

98 

035452 

105061 

031242 



CLRB 

DRVSTACR1 ) 

SET UNIT OFFLINE 

99 

035456 

012763 

177777 

031334 


MOV 

#-1.TIMER(R3) 

STOP THE TIMER 

100 

035464 

004737 

036222 



JSR 

PC.GETREQ 

GET THE DPB ADDRESS 

101 

035470 

005702 




TST 

R2 

REQUEST IN QUEUE ? 

102 

035472 

001424 




BEQ 

ST09 

BR IF NOT 

103 

035474 

052762 

140000 

000016 


BIS 

#BIT15!BIT14,16(R2) .‘INFORM THE USER DRIVE NOT AVAILABLE 

104 

035502 

000414 




BR 

ST08 

.-FINISH 

105 

035504 

012763 

177777 

031334 

ST07: 

MOV 

f-1. TIMER (R3) 

.-STOP THE TIMER 

106 

035512 

105061 

031272 



CLRB 

DPRQS(RI) 

.-CLEAR PORT REQUEST INDICATOR 

107 

035516 

004737 

036222 



JSR 

PC.GETREQ 

.-GET DPB ADDRESS 

108 

035522 

005702 




TST 

R 2 

.QUEUE ENTRY FOR DRIVE ? 

109 

035524 

001407 




BEQ 

ST09 

;BR IF NONE 

110 

035526 

012762 

100004 

000016 


MOV 

#BIT15!BIT2.16(R2) .-INFORM USER OF PORT REQUEST ERROR 


C2R» 

STA1 


L. 
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111 035534 004737 036166 

112 035540 004737 035744 

113 035544 012603 

114 035546 012601 

115 035550 000207 


ST08: 

ST09: 


PC.EMPTYQ 

PC-SVRH70 

(s£)+,R3 

(SP) + ,R1 

PC 


l 12 


SEQ 0154 


CLEAR THE QUEUE FOR THE DRIVE 
SAVE THE REGISTERS 
RESTORE R3 
RESTORE R1 
RETURN 
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SEQ 0155 


10 035552 

11 035554 

12 035562 

13 035566 

14 035570 

15 035572 

16 035574 

17 035602 

18 035606 

19 035612 

20 035616 

21 035620 

22 035622 

23 035624 

24 035626 

25 035630 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 035632 

37 035640 

38 035642 

39 035646 

40 035650 

41 035656 

42 035660 
035664 
035666 

43 

44 

45 035670 

46 035672 

47 035676 

48 035702 

49 035710 

50 035712 

51 035714 

52 035716 

53 035722 

54 035726 

55 035732 


011646 

013737 031366 035570 
062037 035570 
013727 
000000 
000000 

013766 035572 000002 
013746 031366 
0627 1 6 000010 
032736 010000 
001002 
005720 
000402 
011000 
012616 
000200 


ROUTINE TO READ A RH70/RM80 REGISTER 


.-CALL 

; JSR 

INDEX 

; ERRADR 

RO.RD.RM 

; RETURN 

RD.RM: MOV 

(SP).-(SP) 

MOV 

RMADR. RD.ADR 

ADD 

(RO)*. RD.ADR 

RD.RM1 : MOV 

3(PC)*.(PC)* 

RD.ADR: .WORD 

0 

RD.WRD: .WORD 

0 

MOV 

RD.WRD.2(SP) 

MOV 

RMADR, -(SP) 

ADD 

#RMCS2,(SP) 

BIT 

#BIT12.3(SP)* 

BNE 

RD.RM3 

TST 

(RO)* 

BR 

RD.RM4 

RD.RM3: MOV 

(RO).RO 

MOV 

(SP)+,(SP) 

RD.RM4: RTS 

RO 


GO READ A REGISTER 

REG. INDEX FROM BASE 

ERROR ADDRESS— PROCESS ERROR STARTING 

AT THIS ADDRESS 

CONTENTS OF REG. IS ON THE STACK 

SAVE RO FOR RETURN 

FORM THE DESIRED ADDRESS 

USING THE BASE AND THE INDEX 

READ THE DESIRED REGISTER OF the RM80 

ADDRESS IS FORMED HERE 

REG. CONTENTS PUT HERE 

RETURN IT TO THE USER 

PUT THE ADDRESS ON THE STACK 

FORM THE ADDRESS OF RMCS2 

CF'ECK THE 'NED* BIT 

IF NE. DRIVE NOT PRESENT 

ERROR FREE RETURN 

EXIT 

ERROR EXIT 


.•ROUTINE TO WRITE A REGISTER 


MOV DATA.-(SP) 
JSR RO.WRT.RM 
INDEX 

•NED' RETURN 
RETURN 


016637 

012616 

012037 

001015 

122737 

002411 

004037 

000000 

035734 


000316 

042716 

112637 

063737 

012737 

000000 

OOQOOO 

013746 

062716 

032736 

001402 


000002 035712 
035714 

000150 035712 
035552 


177770 

035713 

031366 035714 


031366 
000010 
Cl 0000 


WRT.RM: MOV 
MOV 
MOV 
BNE 
CMPB 
BLT 
JSR 
RMCS1 
WRT.R3 


SWAB 

BIC 

movb 

1$: ADD 

WRT.R1 : MOV 
URT.WD: .WORD 
URT.AD: .WORD 


2<SP) .WRT.WD 
(SP)*.(SP) 
(RO)*,WRT.AD 
1$ 

#150. WRT.WD 
IS 

RO.RD.RM 


(SP) 

#*C7,(SP) 

(SP)*,WRT.WD+1 

RNADR.WRT.AD 

(PC)*,8(PC)* 

0 

0 

RMADR.-(SP) 
#RMCS2, (SP) 
#BIT12,8(SP)* 
WRT.R4 


DATA TO BE LOADED ON THE STACK 
CALL THE ROUTINE TO LOAD (WRITE) THE REG. 
INDEX OF THE REGISTER TO BE LOADED 
ADDRESS TO RETURN TO IF ’NED* ERROR 
ERROR FREE RETURN 

SAVE THE WORD TO WRITE 
ADJUST THE STACK 

GET INDEX OF REGISTER TO BE WRITTEN 

BRANCH IF NOT RMCS1 

IS THE COMMAND FOR DATA TRANSFERS? 

YES— DON’T GET THE OLD A16 ft A17. & PSEL 
CALL THE READ ROUTINE 
REGISTER OFFSET 
'NED' RETURN 

THE COMMAND BEFORE SENDING TO THE 
THE RH70/RM80 


FORM THE ADDRESS OF THE DISK REG. 
LOAD THE DESIRED REG. 

WORD TO WRITE GOES HERE 
ADDRESS IS FORMED HERE 
PUT THE ADDRESS ON THE STACK 
FORM THE ADDRESS OF RMCS2 
CHECK THE 'NED' BIT 
IF EQ. DRIVE IS PRESENT 
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SEQ 0156 


56 035734 

57 035736 

58 035740 
5? 035742 
60 

61 

62 

63 

64 

65 

66 

67 035744 

68 035746 

69 035750 

70 035752 

71 035756 

72 035762 

73 035766 

74 035770 

75 035774 

76 036002 

77 036004 

78 036012 

79 036014 

80 036016 

81 036020 

82 036024 

83 036026 

84 036030 

85 036032 

86 036040 

87 036042 

88 036050 

89 036052 
100 036056 

102 036060 

103 

104 

105 

106 

107 

108 

109 

110 036062 

111 036064 

112 036070 

113 036074 

114 036076 

115 036102 

116 036104 

117 036110 

118 036116 

119 036120 

120 036122 

121 036124 

122 036130 

123 036132 


011000 

000401 

005720 

000200 


104412 

005702 

001442 

013704 

111264 

016203 

001433 

005037 

023727 

001006 

032764 

001002 

005023 

000405 

004037 

000000 

036052 

012623 

023727 

001406 

062737 

000751 

004737 

104413 

000207 


010446 

013704 

010164 

011446 

052716 

000316 

112714 

032764 

001002 

005726 

000402 

112664 

012604 

000207 


URT.R3: MOV 
BR 

WRT.R4: TST 
WRT.R5: RTS 


(RO).RO 

WRT.R5 

(ROH 

RO 


TAKE THE 'NED* EXIT 
EXIT 

ADJUST FOR ERROR FREE EXIT 


ROUTINE TO SAVE THE RH70/RM80 REGISTERS 


031366 

000010 

000014 

036024 

036024 


000022 


000200 000010 


035552 


036024 000046 
000002 036024 
033410 


SVRH70: C AVREG 
TST 
BEO 
MOV 
MOVB 
MOV 
BEO 
CLR 

1$: CMP 

BNE 
BIT 
BNE 
CLR 
BR 

2S: JSR 

3S: .WORD 

5$ 

MOV 

4S: CMP 

BEO 
ADD 
BR 

5$: JSR 

6$: RESREG 

RTS 


#DP8ADR,R2 

PC.SVRH70 


R2 

6* 

RMADR.R4 

(R2).RMCS2(R4) 

14<R2),R3 

6$ 

3$ 

3S.ARMDB 

2S 

#B1T07,RMCS2<R4> 

2$ 

(R3) + 

4$ 

RO.RD.RM 

0 

(SP)+. <R3) + 
3$,#RMEC2 
6 $ 

#2.3S 

1$ 

PC.CI8 


DPB POINTER TO R2 
SAVE THE DRIVES REG'S 

SAVE RO - R5 

QUEUE ENTRY FOR THE DRIVE ? 

BR IF NONE 

SELECT DRIVE 

GET THE ERROR TABLE POINTER 
EXIT IF NO ADDRESS 
COUNTER ft POINTER 
REACHED THE BUFFER REGISTER ? 
BR IF NOT 
; 'OR* SET ? 

BR IF SET 

STORE RMDB AS ZEROES 
CONTINUE 

READ THE SELECTED REGISTER 
REGISTER INDEX 
ERROR RETURN ADDRESS 
STORE THE REGISTER CONTENTS 
REACHED THE END ? 

BR IF YES 

INCREMENT THE REGISTER INDEX 
CONTINUE READING THE REGISTERS 
PROCESS THE ’NED' 

RESTORE RO - R5 
RETURN 


ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A "TRE" 
CALL 

MOV fDRVNUM.RI .-DRIVE NUMBER TO R1 

JSR PC, SET. IE ;SET "IE" 

RETURN 


031366 

000010 

040000 

000100 

010000 


000001 


000010 


SET. IE: MOV 
MOV 
MOV 
MOV 
BIS 
SWAB 
MOVB 
BIT 
BNE 
TST 
BR 

1$: MOVB 

2$: MOV 

RTS 


R4,-(SP) ;SAVE R4 

RMADR.R4 .-PICKUP ADDRESS OF RMCS1 

R1.RMCS2CR4) .-SELECT DRIVE 

(R4).-(SP) .-READ RMCS1 

#8IT14, (SP) .-SET THE "TRE" BIT OF THE WORD READ 
(SP) .-ADJUST FOR DATO 

#8IT06,(R4> .-SET "IE" 

#BIT12,RMCS2(R4) ;IS 'XED'^I? 

1$ ;YES— CLEAR "TRE" 

(SPH ; CLEAN OFF THE STACK 

(SPH, 1(R4) .-CLEAR "TRE" 

(SP)+,R4 .-RESTORE R4 

PC .-RETURN TO CALLER 


SEQ 0157 
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B 13 


124 

125 

126 

127 

128 

129 

130 

131 
137 


139 

HO 

HI 

H2 

K3 

HA 

H5 

H6 


036134 104412 

036136 012702 031302 
036142 005022 
036144 005022 
036146 005022 
036150 005022 
036152 005022 
036154 005022 
036156 005022 
036160 005022 
036162 104413 
036164 000207 


ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
CALL 


CLRQUE : 


JSR 

PC, CLRQUE 


SAVREG 


SAVE RO - R5 

MOV 

IQDRV.R2 

QUEUE BASE ADDRESS 

CLR 

(R2M 

CLEAR ENTRY 

CLR 

(R2M 

CLEAR ENTRY 

CLR 

(R2M 

CLEAR ENTRY 

CLR 

(R2M 

CLEAR ENTRY 

CLR 

(R2M 

CLEAR ENTRY 

CLR 

(R2M 

CLEAR ENTRY 

CLR 

(R2M 

CLEAR ENTRY 

CLR 

(R2M 

CLEAR ENTRY 

RESREG 


RESTORE RO - R5 

RTS 

PC 



EMPTY THE QUEUE SPECIFIED BY R1 


CALL 


MOV 

JSR 


147 




148 036166 

006301 

EMPTYQ: ASL 

149 036170 

005061 

031302 

CLR 

150 036174 

006201 


ASR 

151 036176 

ICO 

000207 


RTS 

1 ?c 

153 



ROUTINE TO PUT 

154 




155 



CALL 

156 



MOV 

157 



MOV 

158 



JSR 

159 



RETURN1 

160 



RETURN2 

16 l 

162 036200 

006301 

DRVQUE : ASL 

163 036202 

005761 

031302 

TST 

164 036206 

001003 


BNE 

165 036210 

010261 

031302 

MOV 

166 036214 

005720 


TST 

167 036216 

006201 

IS: ASR 

168 036220 

000200 

2$: RTS 

I6V 

170 



ROUTINE TO GET 

171 




172 



CALL 

173 



MOV 

174 



JSR 

175 



RETURN 

176 




177 




178 036222 

006301 

GETREQ: ASL 

179 036224 

016102 

031302 

MOV 


DRVNUM.R1 

PC.EMPTYQ 

R1 

QDRV(RI) 

R1 

PC 


#DRVNUM,R1 

#DPB,R2 

RO.DRVQUE 


R1 

QDRV(RI) 

1 $ 

R2.QDRV(R1) 

(ROM 

R1 

RO 


.•DRIVE NUMBER TO R1 


.•CLEAR DRIVE QUEUE 
.'RESTORE R1 


DRIVE NUMBER 

ADDRESS OF PARAMETER BLOCK 
GO PUT REQUEST IN QUEUE 
RETURN HERE IF QUEUE IS FULL 
RETURN HERE IF REQUEST IS IN QUEUE 


; TEST THE QUEUE ENTRY 

;IF NE. QUEUE ENTRY ALREADY THERE 

;ADD THE QUEUE ENTRY 

.-TAKE RETURN 2 

.'RETURN TO USER 


ROUTINE TO GET THE ’DPe" ADDRESS OF NEXT REQUEST IN QUEUE 


#DRVNUH,R1 

PC.GETREQ 


R1 

QDRV(R1).R2 


DRIVE NUMBER TO R1 
GO GET THE REQUEST 
R2='DPB ,, ADDRESS OF THE REQUEST 
R2=0 IF NO REQUEST IN QUEUE 


.'GET THE REQUEST 



SEQ 0158 
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C 13 


180 036230 

181 036232 

182 

183 

184 

185 

186 

187 

188 

189 

190 036234 

191 036236 

192 036242 

193 036246 

194 036250 

195 

197 

198 

199 

200 
201 
202 

203 

204 

205 036252 

206 036256 

207 036262 

208 036266 

209 036270 

210 036274 


006201 

000207 


ASR 

RTS 


R1 

PC 


.•RETURN 

ROUTINE TO '•POP" THE REQUEST FROM QUEUE 


CALL 


MOV 

JSR 

RETURN 


006301 

016102 031302 
005061 031302 

006201 
000207 


POPQUE : ASL 
MOV 
CLR 
ASR 
RTS 


#DRVNUM,R1 
PC .POPQUE 


R1 

QDRV(R1).R2 

QDRV(RI) 

PI 

PC 


DRIVE NUMBER TO R1 
CALL TO REMOVE REQUEST 
R2-ADDRESS OF DPB REMOVED 


;GET THE QUEUE ENTRY 
.-CLEAR THE QUEUE 


.•RETURN TO USER 


ROUTINE TO SAVE THE CONTENTS OF ’SESCAPE’ WHEN THE DRIVER 
REPORTS AN ERROR DIRECTLY. 


CALL 


012037 

036266 

ES. 

013746 

001222 


005037 

001222 

IS: 

000000 


012637 

000200 

001222 



JSR 

ERROR 

RETURN 

MOV 

MOV 

CLR 

.WORD 

MOV 

RTS 


RO.ES.SAV 

N 


<R0)+,1S 
SESCAPE ,-(SP) 
SESCAPE 
0 

<SP)+, SESCAPE 
RO 


;THE ERROR CALL 

THE RETURN IS PAST THE ERROR CALL 

GET THE ERROR CALL 

SAVE THE ADDRESS IN ’SESCAPE’ 

CLEAR THE ESCAPE RETURN 

THE ERROR CALL IS MOVED HERE 

RESTORE THE ESCAPE ADDRESS 

RETURN 


SEfl 0159 


CZRNGAO RH80 FCTNL PH MACRO V04.00 15-JAN-82 07:05:59 PAGE 39 
GETADR - GET BUS ADDRESS AMD VECTOR ADDRESS 


D 13 


1 

2 

3 

4 

5 

6 

7 

8 


9 

10 





; JSR 

PC, GETADR 

11 





; RETURN 


12 

13 

036276 

005737 

001324 


GETADR: TST 

BUSADR 

K 

036302 

001436 



BEQ 

5$ 

15 

036304 

005037 

001324 


CLR 

BUSADR 

16 

036310 

104401 

001231 


TYPE 

,$CRLF 

17 

036314 

005227 

177777 


INC 

*-1 

18 

036320 

001402 



BEQ 

IS 

19 

036322 

104401 

001231 


TYPE 

.SCRLF 

20 

036326 

012700 

001522 


1$: MOV 

*RH.ADR,RO 

21 

036332 

012703 

036466 


MOV 

4MRMCS1 ,R3 

22 

036336 

011004 



MOV 

(RO) ,R4 

23 

036340 

004037 

026750 


JSR 

R0.6ETNUM 

24 

036344 

000402 



BR 

2$ 

25 

036346 

000767 



BR 

IS 

26 

036350 

000412 



BR 

4S 

27 

036352 

010420 



2S: MOV 

R4,(R0H 

28 

036354 

012703 

036476 


MOV 

#MRMVEC,R3 

29 

036360 

011004 



MOV 

(R0J.R4 

30 

036362 

004037 

026750 


JSR 

RO,GETNUM 

31 

036366 

000402 



BR 

3$ 

32 

036370 

000756 



BR 

IS 

33 

036372 

000401 



BR 

4S 

34 

036374 

010420 



3$: MOV 

R4, (RO) ♦ 

35 

036376 

010410 



4$: MOV 

R4, CRO) 

36 

036400 

013701 

000004 


5$: MOV 

ERRVEC.R1 

37 

036404 

012737 

036440 

000004 

MOV 

m.ERRVEC 

38 

036412 

005777 

143104 


TST 

3RH.ADR 

39 

036416 

C"'137 

000004 


MOV 

R1,ERRVEC 

40 

036422 

012700 

001522 


MOV 

#RH.ADR,RO 

41 

036426 

012701 

031366 


MOV 

4TRMADR.R1 

42 

036432 

012021 



MOV 

(ROJMRU* 

43 

036434 

012021 



MOV 

(RO)*, (R1)* 

4/ 

036436 

000207 



RTS 

PC 

45 

036440 

010137 

000004 


6$: MOV 

R1,ERRVEC 

46 

036444 

022626 



CMP 

(SP)*.(SP)+ 

47 

036446 

104010 



EM T 

10 

43 

036450 

005737 

000042 


TST 

3*42 

49 

036454 

001724 



BEQ 

IS 

50 

036456 

005037 

001330 


CLR 

DRVSEL 

51 

C 1 

036462 

000137 

015142 


JMP 

SEOP 

52 

53 

036466 

200 

122 

115 

MRMCS1: .ASCI 2 

<CRLF>/RMCS1=/ 

54 

036476 

200 

122 

115 

HRMVEC: .ASCI 2 

<CRLF>/RMVEC=/ 


.S8TTL GETADR - GET BUS ADDRESS AND VECTOR ADDRESS 

THIS ROUTINE IS US«:D TO ENSURE THE BUS ADDRESS OF THE RH/RM 
IS SETUP TO READ THE PROPER VALUE. IT WILL ALSO READ THE 
ADDRESS FROM THE TTY IF REQUIRED. 

NOTE: THIS ROUTINE DESTROYS R0-R4 
CALL 


INPUT FROM TTY REQUESTED? 

NO— BRANCH 

YES— CLEAR THE REQUEST FLAG 
CR-LF 

FIRST TIME THRU ? 

BR IF YES 
CR-LF 

FIRST ADDRESS 
"RMCS1=" 

PRESENT RMCS1 ADDRESS 
GET NEW RMCS1 
COMMA 
PERIOD 

DOUBLE PERIOD 
SAVE NEW MCS1 
"RMVEC=" 

PRESENT RH/RM VECTOR ADDRESS 

GET NEW RMVEC 

COMMA 

PERIOD 

DOUBLE PERIOD 
SAVE NEW RMVEC 
SAVE INPUT 

SAVE THE ERROR VECTOR 

SETUP FOR TRAP 

CHECK FOR RH/RM 

RESTORE ERROR VECTOR 

FIRST ADDRESS OF NEW PARAMETERS 

FIRST ADDRESS OF WHERE TO PUT THEM 

BUS ADDRESS 

VECTOR ADDRESS 

RETURN 

RESTORE ERROR VECTOR 
CLEAN OFF THE STACK 

IS THERE A MONITOR? 

NO— GO ASK FOR ADDRESS 
DESELECT ALL DRIVES FROM TEST 
RETURN TO SEOP 
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SEQ 0160 


CZR 

STM 


(0) DRIVE NUMBER 

(1) OFFSET VALUE OR FMT16, ECI, HCI, t SSEI 
(?) COMMAND 

(3) PSEL AND A17 AND A16 

(4) WORD COUNT (MUST BE NEG.) 

(6) BUFFER ADDRESS OR 
REGISTER TABLE POINTER 

(10) SECTOR ADDRESS OR 
FIRST REG. INDEX 

(11) TRACK ADDRESS OR 
LAST REG. INDEX 

(1?) CYLINDER ADDRESS 
(14) ERROR TABLE POINTER 
POINTS TO THE FIRST OF TWENTY 
LOCATIONS OF WHERE THE DRIVER 
IS TO STORE THE RH/RM 
REGISTERS ON AN ERROR. IF LEFT 
ZERO REGISTERS ARE NOT SAVED. 

(16) STATUS'ERROR INDICATOR 
BIT1 5=1 =>ERROR OCCURRED 
8IT07=1=>DONE 

BIT14-BIT09 AND BIT06-BIT03 

INDICATE TYPE OF ERROR 

SKIP SECTOR ENABLE INDICATOR (ENABLED =1) 

(0) DRIVE NUMBER 

(1) OFFSET VALUE OR FMT16, ECI, HCI, t SSEI 

(2) COMMAND 

(3) PSEL AND A17 AND A16 

(4) WORD COUNT (MUST oc NEG.) 

(6) BUFFER ADDRESS OR 
REGISTER TABLE POINTER 

(10) SECTOR ADDRESS OR 
FIRST REG. INDEX 

(11) TRACK ADDRESS OR 
LAST REG. INDEX 

(12) CYLINDER ADDRESS 

(H) ERROR TABLE POINTER 
POINTS TO THE FIRST OF TWENTY 
LOCATIONS OF WHERE THE DRIVER 
IS TO STORE THE RH/RM 
REGISTERS ON AN ERROR. IF LEFT 
ZERO REGISTERS ARE NOT SAVED. 

(16) STATUS/ERROR INDICATOR 
8IT15=1=>ERR0R OCCURRED 

BI T07=1=>DONE 

8IT14-BIT09 AND BIT06-BIT03 

INDICATE TYPE OF ERROR 

SKIP SECTOR ENABLE INDICATOR (ENABLED =1) 

(0) DRIVE NUMBER 

(I) OFFSET VALUE OR FMT16, ECI, HCI, K SSEI 

(2) COMMAND 

(3) PSEL AND A17 AND A16 

(4) WORD COUNT (MUST BE NEG.) 



F 
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58 036560 

043540 

.WORD 

BUFFER 

59 

60 036562 

000 

.BYTE 

0 

61 

62 036563 

000 

.BYTE 

0 

63 

64 035564 

000000 

.WORD 

0 

65 036566 

036640 

.WORD 

RM.REG 

66 

67 

68 

69 

70 

71 036570 

000000 

.WORD 

0 


72 

73 

74 


76 036572 

77 

78 036574 

000000 

.WORD 

0 

000 

DTADPB: .BYTE 

0 

79 036575 

000 

.BYTE 

0 

80 036576 

000 

.BYTE 

0 

81 036577 

000 

.BYTE 

0 

82 036600 

000000 

.WORD 

0 

83 036602 

043540 

.WORD 

BUFFER 

84 

85 036604 

000 

.BYTE 

0 

86 

87 036605 

000 

.BYTE 

0 

oo 

89 036606 

000000 

.WORD 

0 

90 036610 

036640 

.WORD 

RM.REG 


91 

92 

93 
9<> 


96 036612 
o * 

000000 

.WORD 

0 

98 

99 

100 

101 036614 

102 

103 036616 

000000 

.WORD 

0 

000 

DP8.R: .BYTE 

0 

104 036617 

000 

.BYTE 

0 

105 036620 

107 

.BYTE 

RECAL 

106 036621 

000 

•BYTE 

0 

107 036622 

000000 

.WORD 

0 

108 036624 

043540 

.WORD 

BUFFER 

109 

110 036626 

000 

.BYTE 

0 

111 

112 036627 

113 

114 036630 

OOO 

.BYTE 

0 

000000 

.WORD 

0 


SEO 0161 


(6) BUFFER ADDRESS OR 
REGISTER TABLE POINTER 

(10) SECTOR ADDRESS OR 
FIRST REG. INDEX 

(11) TRACK ADDRESS OR 
LAST REG. INDEX 

(12) CYLINDER ADDRESS 
(14) ERROR TABLE POINTER 
POINTS TO THE FIRST OF TWENTY 
LOCATIONS OF WHERE THE DRIVER 
IS TO STORE THE RH/RM 
REGISTERS ON AN ERROR. IF LEFT 
ZERO REGISTERS ARE NOT SAVED. 

(16) STATUS/ERROR INDICATOR 

BI T15=1=>ERROR OCCURRED 
BIT07=1=>D0NE 

8IT14-BIT09 AND 8IT06-8IT03 

INDICATE TYPE OF ERROR 

SKIP SECTOR ENABLE INDICATOR (ENABLED =1) 

t(\\ nniVF MMRFR 

(1) OFFSET VALUE OR FMT16, ECI, HCI. I SSEI 

(2) COMMAND 

(3) PSEL AND A17 AND A16 

(4) WORD COUNT (MUST BE NEG.) 

(6) BUFFER ADDRESS OR 
REGISTER TABLE POINTER 

(10) SECTOR ADDRESS OR 
FIRST REG. INDEX 

(11) TRACK ADDRESS OR 
LAST REG. INDEX 

(12) CYLINDER ADDRESS 
(14) ERROR TABLE POINTER 
POINTS TO THE FIRST OF TWENTY 
LOCATIONS OF WHERE THE DRIVER 
IS TO STORE THE RH/RM 
REGISTERS ON AN ERROR. IF LEFT 
ZERO REGISTERS ARE NOT SAVED. 

(16) STATUS/ERROR INDICATOR 
8IT15=1=>ERR0R OCCURRED 
8IT07=1=>D0NE 

BIT14-BIT09 AND BIT06-BIT03 

INDICATE TYPE OF ERROR 

SKIP SECTOR ENABLE INDICATOR (ENABLED =1) 


(0) DRIVE NUMBER 

(1) OFFSET VALUE OR FMT16. ECI. HCI. ft SSEI 

(2) COMMAND 

(3) PSEL AND A17 AND A16 

(4) WORD COUNT (MUST BE NEG.) 

(6) BUFFER ADDRESS OR 
REGISTER TABLE POINTER 

(10) SECTOR ADDRESS OR 
FIRST REG. INDEX 

(11) TRACK ADDRESS OR 
LAST REG. INDEX 

(12) CYLINDER ADDRESS 


SMT1 

SMT1 

SMTl 

IMT1 

SMX( 

SNUl 

SNW1 

SOCK 

SOME 

SOVE 

SPA! 

SPA! 

SPSE 

SQUI 

SR AX 

SRD( 

SPDL 

SRDS 


G 13 



SEQ 0162 


CZ>-» 

CRO' 


(14) ERROR TABLE POINTER 
POINTS TO THE FIRST OF TWENTY 
LOCATIONS OF WHERE THE DRIVER 
IS TO STORE THE RH/RA 
REGISTERS ON AN ERROR. IF LEFT 
ZERO REGISTERS ARE NOT SAVED. 

(16) STATUS/ERROR INDICATOR 
8IT15=1=>ERR0R OCCURRED 
8IT07=1=>D0NE 

8IT14-BIT09 AND BIT06-BIT03 

INDICATE TYPE OF ERROR 

SKIP SECTOR ENABLE INDICATOR (ENABLED =1) 


RACS1 (776700) CONTROL ft STATUS #1 
RAWC (776702) WORD COUNT 
RABA (776704) BUS ADDRESS 
RADA (776706) DESIRED SECTuR/TRACK 
RACS2 (776710) CONTROL ft STATUS #2 
RADS (776712) DISK STATUS 
RAER1 (776714) ERROR REG. #1 
RAAS (776716) ATTENTION SUAAARV 
RALA (776720) LOOK AHEAD 
RADB (776722) DATA BUFFER 
RAAR1 (776724) AAINTAINABILITY 
RADT (776726) DRI’'E TYPE 
RASN (776730) SERIAL NUMBER 
RAOF (776732) OFFSET 
RADC (776734) DESIRED CYLINDER 
RAHR (776736) CURRENT CYLINDER 
RAAR2 (776740) ERROR REG #2 
RAER2 (776742) ERROR REG #3 
RAEC1 (776744) ECC POSITION 
RAEC2 (776746) ECC PATTERN 


WG5 

SOF1 

ViO( 

SAP 1 

IASI 

UTi 

IAT1 

un 

Mil 

SAUl 

*BA< 

SBD* 

SBDC 

SBEl 

IBUF 

ftCH/ 

SCKS 

SCA1 


i 


SERF 

SERT 


M 13 
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ASCI2 MESSAGES 

1 

2 

3 036710 

122 

000 


.S8TTL 

MSG.P: 

ASCIZ MESSAGES 

.ASCIZ /R/ 

4 

036712 

106 

103 

000 

MSG.FC 

.ASCIZ 

/FC/ 

5 

036715 

114 

103 

000 

MSG.IC 

.ASCIZ 

/LC/ 

6 

036720 

111 

103 

000 

MSG.IC 

.ASCIZ 

/IC/ 

7 

036723 

106 

124 

000 

MSG. FT 

.ASCIZ 

/FT/ 

8 

036/ 26 

114 

124 

coo 

HSG.LT 

.ASCIZ 

/LT/ 

9 

036731 

111 

124 

000 

MSG. JT 

.ASCIZ 

/IT/ 

10 

036734 

106 

123 

000 

HSG.FS 

.ASCIZ 

/FS/ 

11 

036737 

114 

123 

000 

MSG. IS 

.ASCIZ 

/LS/ 

12 

036742 

120 

101 

124 

MSG. PA 1 

r.*. asciz 

/PAT/ 

13 

036746 

075 

000 


MSG. SO 

.ASCIZ 

/=/ 

14 

15 

16 

036750 

200 

103 

117 

MSG.CS 

.ASCIZ 

<CRLF> 'CONTROL SUITCHES=/ 

036773 

040 

057 

040 

SLASH: 

.ASCIZ 

a / a 

17 

036777 

200 

125 

116 

UNSTAT 

.ASCIZ 

<CRLF>/UNIT STATUS:/ 

18 

037015 

040 

117 

106 

UNTOFF 

.ASCIZ 

/ OFFLINE/ 

19 

037026 

040 

117 

116 

UNTON: 

.ASCIZ 

/ ONLINE/ 

20 

037036 

040 

116 

117 

NOTPRS 

.ASCIZ 

/ NOT PRESENT/ 

21 

037053 

040 

125 

116 

NOTSAF 

.ASCIZ 

/ UNSAFE/ 

22 

037063 

040 

116 

117 

NOTRM: 

.ASCIZ 

8 NOT AN RM80a 

23 

037100 

040 

114 

117 

LODEV: 

.ASCIZ 

/ LOAD DEVICE/ 

24 

037115 

122 

115 

070 

SRM80: 

.ASCIZ 

/RM80/ 

25 

037122 

200 

104 

122 

DRIVES 

.ASCIZ 

<CRLF>/DRIVE (S) TO BE TESTED. / 

26 

037153 

116 

117 

116 

NONE: 

.ASCIZ 

/NONE/ 

27 

037160 

054 

040 

000 

COMMA: 

.ASCIZ 

/. / 

28 

037163 

072 

040 

000 

COLON: 

.ASCIZ 

/: / 

29 

037166 

200 

116 

117 

NOCLOK 

.ASCIZ 

<CRLF>/NO KW11-P CLOCK. TIMING TESTS WILL NOT BE PERFORMED/ 

30 

037253 

115 

102 

101 

SERIAL 

.ASCIZ 

aMBA S/N: a 

31 

037265 

2 00 

124 

105 

MSGTST 

.ASCIZ 

<CRLF>/TEST/ 

32 

037273 

200 

104 

122 

MSDRIV 

.ASCIZ 

<CRLF>/DRIVE/ 

33 

037302 

040 

104 

122 

DROP: 

.ASCIZ 

/ DROPPED/ 

34 

037313 

105 

130 

103 

EXCEED 

.ASCIZ 

/EXCEEDED MAXIMUM ERROR LIMIT/<CRLF> 

35 

037351 

200 

116 

117 

NODRVS 

.ASCIZ 

<CRLF>/NO DRIVES TO TEST/<CRLF> 

36 

67 

38 

037375 

200 

116 

117 

NOTEST 

.ASCIZ 

<CRLF>/NO TESTS SPECIFIED/<CRLF> 

037422 

200 

012 

122 

ROTATE 

.ASCIZ 

<CRLFXLF>/ROTATIQNAL SPEED TIMES/ 

39 

037453 

200 

012 

117 

ONECYL 

.ASCIZ 

<CRLFXLF>/ONE CYLINDER SEEK TIMES/<CRLF>/ * FORWARD/ 

'-C 

037520 

200 

012 

101 

AVERGE 

.ASCIZ 

<CRLFXLF>/AVERAGE SEEK TIMES/<CRLF>/ * FORWARD/ 

41 

037560 

200 

012 

115 

MXSEEK 

.ASCII 

<CRL F XL F> /MAXIMUM SEEK TIMES/ 

42 

037604 

200 

040 

052 

FWD: 

.ASCIZ 

<CRLF>/ * FORWARD/ 

43 

037620 

200 

040 

052 

REV: 

.ASCIZ 

<CRLF>/ * REVERSE/ 

44 

45 

46 

037634 

200 

012 

101 

MEASUR 

.ASCIZ 

<CRLFXLF>/AVERAGE SEEK TIME MEASUREMENT/ 

037674 

200 

115 

111 

MSGMIN 

.ASCIZ 

<CRLF>/MIN=/ 

47 

037702 

200 

115 

101 

MSGMAX 

.ASCIZ 

<CRLF>/MAXs/ 

48 

037710 

200 

101 

126 

M5GAVG 

.ASCIZ 

<CRLF>/AVG=/ 

49 

037716 

060 

040 

125 

MSGOUS 

.ASCIZ 

/O US/ 

50 

037723 

040 

102 

105 

MB E LOW 

.ASCIZ 

/ BELOW THE MINIMI* OF / 

51 

52 

037752 

040 

101 

102 

MABOVE 

.ASCIZ 

/ ABOVE THE MAXIMl* OF / 

040001 

040 

123 

105 

105 

MSGSCH 

.ASCIZ 

/ SEARCHES TIMED/ 

53 

040021 

040 

123 

MSGSEK 

.ASCIZ 

/ SEEKS TIMED/ 

54 

040036 

040 

116 

117 

HSGNOT 

.ASCIZ 

/ NOT TIMED/ 

55 

56 

57 

040051 

040052 

040053 

040 

040 

040 



BLNKS4 : .ASCII 
BLNKS3: .ASCII 
BLNKS2: .ASCII 

/ / 

/ / 

/ / 
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ASCIZ MESSAGES 










58 040054 

040 

000 


BLNKS1 : 

.ASCIZ 

/ / 




59 040056 

101 

114 

114 

MSG11X: 

.ASCJZ 

/ALLOWABLE 

ROTATIOMAL SPEED 

limits for 

RM80/ 

60 040131 

101 

114 

114 

MSG12X: 

.ASCIZ 

/ALLOWABLE 

ONE CYLINDER SEEK 

LIMIT/ 


61 040173 

101 

114 

114 

MSG13X: 

.ASCIZ 

/ALLOWABLE 

AVERAGE SEEK TIME 

LIMIT/ 


62 040235 

101 

114 

114 

MSG14X: 

.ASCIZ 

/ALLOWABLE 

MAXIMUM (FORWARD) 

SEEK TIME 

LIMIT/ 


J J 


SEQ 0165 


l/RNGAO RM80 FCTNL PT4 MACRO V04.00 1 5- JAN-82 07:05:59 PAGE At 
ERROR HEADER (EM) MESSAGES 


1 

2 

3 

04031 

122 

110 

040 

•S8TTL ERROR HEADER (EM) MESSAGES 

EMI: .ASCIZ /RH CONTROLLER INTERRUPT OCCURRED (RMAS=0>/ 

A 

0A0363 

125 

116 

105 

EM2: 

.ASCIZ 

/UNEXPECTED ATTENTION OCCURRED/ 

5 

040421 

101 

104 

104 

EM5: 

.ASCIZ 

/ADDRESS PLUG CHANGE BIT SET/ 

6 

OAOA55 

122 

110 

040 

EM10 

.ASCIZ 

/RH CONTROLLER FAILED TO RESPOND TO ADDRESSING/ 

7 

0A0533 

104 

122 

111 

EM11 

.ASCIZ 

/DRIVE SELECTED IS NOT ONLINE/ 

8 

0A0570 

111 

115 

120 

EMI 2 

.ASCIZ 

/IMPROPER HEADER DATA/ 

9 

OA061S 

10A 

101 

124 

EM13 

.ASCIZ 

/DATA COMPARE FAILURE/ 

10 

040642 

104 

111 

123 

EMI 7 

.ASCIZ 

/DISK ERROR IN TIMING TEST/ 

11 

040674 

103 

114 

117 

EM20 

.ASCIZ 

/CLOCK (KU11-P) OVERFLOW IN TIMING TEST/ 


040743 

104 

111 

123 

EM23 

.ASCIZ 

/DISK ERROR DURING SEEK/ 

ll 

040772 

123 

105 

105 

EM24 

.ASCIZ 

/SEEK NOT COMPLETE WITHIN 120 MS/ 

1 A 

041032 

122 

110 

057 

EM41 

.ASCIZ 

BRH/RM ERRORS 

15 

041046 

106 

101 

124 

EM46 

.ASCIZ 

/FATAL WRITE CHECK ERROR/ 
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STATUS/ERROR INDICATOR MESSA6ES 


1 

2 

3 

041076 

117 

106 

106 

.sbttl 

HSG814 

STATUS/ERROR INDICATOR MESSA6ES 

.ASCII /OFFLINE OR UNSAFE DRIVE REQUESTED/ 

4 

041140 

123 

117 

106 

HSGB09 

.ASCIZ 

/SOFTWARE TIMEOUT ON THIS DRIVE/ 

5 

041177 

123 

117 

106 

HSGB08 

. ASCIZ 

/SOFTWARE TIMEOUT ON ANOTHER DRIVE/ 

"ERROR OCCURRED DURING I/O OPERATION" | 

"ERROR OCCURRED DURING NON-I/O OPERATION" ! 

6 

041241 

105 

122 

122 

MSGB06 

.ASCIZ 

7 

041305 

105 

122 

122 

MSG805 

.ASCIZ 

8 

041355 

125 

116 

123 

HSGB04 

.ASCIZ 

/UNSAFE OCCURRED/ 

9 

041375 

104 

122 

111 

MS 6802 

.ASCIZ 

/DRIVE HAS NOT RESPONDED TO PORT REQUEST/ 

10 

041445 

104 

122 

111 

MS6B01 

.ASCIZ 

/DRIVE HAS BECOME NON-EXISTENT/ 


J 
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DATA HEADER (D7) MESSAGES 

1 .SflTTL DATA HEADER (DT) MESSAGES 


3 

041503 

105 

122 

122 

DH1: 

.ASCIZ 

/ERR PC 

4 

041520 

105 

122 

122 

DH2: 

.ASCIZ 

/ERR PC 

5 

041605 

122 

115 

103 

DH10: 

.ASCIZ 

/RMCS1 

6 

041624 

104 

122 

111 

DH11: 

.ASCIZ 

/DRIVE 

7 

041643 

124 

105 

123 

DH12: 

.ASCIZ 

/TEST 

8 

041732 

107 

104 

103 

DH12A: 

.ASCIZ 

/GDCYL 

9 

042011 

107 

104 

104 

DH13A: 

.ASCIZ 

/GDDAT 

10 

042057 

124 

105 

123 

DH17: 

.ASCIZ 

/TEST 

11 

042154 

124 

105 

123 

DH21 : 

.ASCIZ 

/TEST 

12 

042232 

107 

104 

104 

DH21A: 

.ASCIZ 

/GDDAT 

13 

042271 

124 

105 

123 

DH23: 

.ASCIZ 

/TEST 

14 

042356 

122 

115 

105 

DH23A: 

.ASCIZ 

/RMER1 

15 

042423 

124 

105 

123 

DH41 : 

.ASCIZ 

/TEST 

16 

042461 

124 

105 

123 

DH42: 

.ASCIZ 

/TEST 

17 

042546 

122 

115 

105 

DH43A: 

.ASCIZ 

/RMER1 

18 

042574 

122 

115 

103 

DH44A: 

.ASCIZ 

/RMCS1 

19 

042650 

122 

115 

105 

DH44B: 

•ASCIZ 

/RMER1 

20 

21 

042676 

122 

115 

105 

DH45A: 

.EVEN 

.ASCIZ 

/RMER1 


RMAS/ 


DRIVE 
ERR PC/ 
ERR PC/ 

RMAS 

RMDS 

RMER1 

PMMR2 

RMER2/ 

ERR PC 

TST PC 

DRIVE 

CYLNDR 

TRACK 

SECTOR/ 

GDTRK 

GDSCTR 

BDCYL 

8DTRK 

BDSCTR/ 

BDDAT 

WRDCNT 

GDADR 

BDADR/ 



ERR PC 

DRIVE 

RMCS1 

RMDS 

RMER1 

RMMR2 RMER2/ 

ERR PC 

TST PC 

DRIVE 

CYLNDR 

TRACK/ 


BDDAT 

URDCNT 

SECTOR/ 



ERR PC 

DRIVE 

CYLNDR 

RMCS1 

RMCS2 

RMDS/ 

RMMR2 

RMER2 

RMDC 

RMHR/ 



ERR PC 

TST PC 

DRIVE/ 




ERR PC 

TST PC 

DRIVE 

RMCS1 

RMCS2 

RMDS/ 

RMMR2 

RMER2/ 





RMCS2 

RMDS 

RUHR 

RMDC 

RMDA/ 


RMMR2 

RMER2/ 





RMMR2 

RMER2 

RMUC 

RMBA 

RMDB/ 
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DATA TABLE (DT) 


SEQ 0168 


L/>s 

(.RCV. 


1 .S8TTL DATA TABLE (DT) 

2 

3 042754 001132 001204 DTI: .WORD SERRPC,$REG3 

4 042760 001132 001200 001204 DT2: .WORD $ERRPC,$REG1 ,$REG'’,RWERRS,RMERRS+2.RMERRS+6.RHERRS+4 

5 042776 001212 001132 001200 DT5: .WORD $TMP0,$ERRPC.$REG1 ,$REG5,RMERRS.RMERRS*2.RMERRS+6,RH£RRS*4 

6 043016 001522 001132 DT10: .WORD RH.ADR.fERRPC 

7 043022 001202 001132 DT11: .WORD $REG2,$ERRPC 

8 043026 001212 001132 001176 DT12: .WORD $TMPO,$ERRPC,$REGO.CHKDRV.CYL.DS,TRK.DS.SEC.DS 

9 043044 001366 001372 001370 DT12A: .WORD CYL.DS.TRK.DS.SEC.DS.CYL.RD.TRK.RD.SEC.RD 

10 043060 001212 001132 001176 DT13: .WORD $TMPO,$ERRPC,$REGO.CHKDRV.CYL.DS.TRIC.DS.$EC.DS 

11 043076 001140 001142 001206 DT13A: .WORD SGDDAT , SfiDDAT , $RE G4 , JGDADR , $6DADR 

12 043110 001212 001132 001352 DT17: .WORD STMP0,$ERRPC.CHKDRV.RM.REG.RM.REG+12.RM.REG+14.RM.REG+40.RM.REG*42 

13 043130 001212 001132 001176 DT21 : .WORD ST«PO,SERRPC.$REGO.CHKDRV.CYL.DS,TRK.DS 

14 043144 001200 001142 001206 DT21A: .WORD $REG1 ,$8DDAT,$REG4,$REG1 

15 043154 001212 001132 001352 DT23: .WORD $raP0,$ERRPC.CHKDRV.CYL.DS.RM.REG.RM.REG*10,RN.REG+12 

16 043172 036654 036700 036702 DT23A: .WORD RN.REG*14,RM.REG«-40,RM.REG«-42.RM.REG*34.RM.RE6*36 

17 043204 001212 001132 001176 DT41: .WORD STMPO.SERRPC.SREGO.CHKDRV 

18 043214 001212 001132 001176 DT42: .WORD $TMPG,$ERRPC.$REG0.CHKDRV,RM.REG,RM.REG+10.RN.RE6*12 

19 043232 001212 001132 001176 DT43: .WORD $TNPO,$ERRPC,$REGO W'RV,RM.REG.RM.REG*10.RM.REG*12 

20 043250 036654 036700 036702 DT43A: .WORD RM.REG*14,RM.REGK0 ^ 1 S*42 

21 043256 001212 001132 001176 DT44: .WORD STMPO.SERRPC.SREGO.t " .CYL.DS.TRK.DS,SEC.DS 

22 043274 036640 036650 036652 DT44A: .WORD RN.REG,RM.REG+10,RM.REu+12,RM.REG+36,RM.REG+34,RM.REG+06 

23 043310 036654 036700 036702 DT448: .WORD RM.REG+14 ,RM.REG+40,RM.REG+42 

24 043316 001212 001132 001176 DT45: .WORD $T«P0.$ERRPC.fREG0.CHKD1V.CYL.DS,TRK.DS # SEC.DS 

25 043334 036640 036650 036652 DT45A: .WORD Rfl.REG,Rff.REG+10,RM.REG+12,RM.REG+36,Rft.REG+34,Rft.REG+06 

26 043350 036654 036700 036702 DT458: .WORD RM.REG'*14,RN.REG*A0,RM.REG+42,RN.REG*2 # RN.REG*4,RH.REG*22 


BUSAD 

BYPAS 


C.SUR 


CALL. 

CALL. 


CALL. 

CALL. 

CHANG 

CHKDR 


1 


CK.CH 

CK.DE 

CK.D1 

CK.NU 

CK.OC 

CKSWR 



CLRQU 

CNTCL 


CNTRL 

COLON 

COMMA 

CONT 
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DATA FORMAT (OF) TABLE 




1 


.SBTTL 

DATA FORMAT (DF) TABLE 

2 

3 043364 

000001 

DF1 : 

.WORD 

1 

4 043366 

002 


.BYTE 

2 

5 043367 

000 


.BYTE 

0 

7 043370 

000001 

DF2: 

.WORD 

1 

8 043372 

007 


.BYTE 

7 

9 043373 
10 

000 


.BYTE 

0 

11 043374 

000001 

DF3: 

.WORD 

1 

12 043376 

004 


.BYTE 

4 

13 043377 

14 

000 


.BYTE 

0 

15 043400 

000001 

DF4: 

.WORD 

1 

16 043402 

005 


.BYTE 

5 

17 043403 

18 

000 


.BYTE 

0 

19 043404 

000001 

DF10: 

.WORD 

1 

20 043406 

002 


.BYTE 

2 

21 043407 

22 

000 


.BYTE 

0 

23 043410 

000001 

DF1 1 : 

.WORD 

1 

24 043412 

002 


.BYTE 

2 

25 043413 

26 

000 


.BYTE 

0 

27 043414 

000002 

DF12: 

.WORD 

2 

28 043416 

007 


.BYTE 

7 

29 043417 

160 


.BYTE 

160 

30 043420 

041732 


.WORD 

DH12A 

31 043422 

006 


.BYTE 

6 

32 043423 

33 

000 


.BYTE 

0 

34 043424 

000002 

DF13: 

.WORD 

2 

35 043426 

007 


.BYTE 

7 

36 043427 

160 


.BYTE 

160 

37 043430 

042011 


.WORD 

DH13A 

38 043432 

005 


.BYTE 

5 

39 043433 

40 

004 


.BYTE 

4 


41 043434 

000000 

DF14: 

.WORD 

0 

42 043436 

005 


.BYTE 

5 

43 043437 

44 

45 043440 

004 


.BYTE 

4 

000001 

DF17: 

.WORD 

1 

46 043442 

010 


.BYTE 

*D8 

47 043443 

000 


.BYTE 

0 

48 

49 043444 

000002 

DF21: 

.WORD 

2 

50 043446 

006 


•BYTE 

6 

51 043447 

060 


.BYTE 

60 

52 043450 

042232 


.WORD 

DH21A 

53 043452 

004 


.BYTE 

4 

54 043453 

014 


.BYTE 

14 

55 

56 043454 

000000 

DF22: 

.WORD 

0 

57 043456 

004 


.BYTE 

4 


SEQ 0169 


.NUMBER OF DATA HEADERS 
.NUMBER OF WORDS IN DATA TABLE 
;ALL 3 NUMBERS ARE OCTAL 


2 DH’S TO BE TYPED 
7 DATA WORDS FOLLOW THE 1ST DH 
WORDS 1-4 ARE OCTAL 5-7 ARE DECIMAL 
ADDRESS OF 2ND DH 
6 DATA WORDS FOLLOW THE 2ND DH 
ALL WORDS ARE OCTAL 


;WORD 3 IS DECIMAL 


;WORD 3 IS DECIMAL 



B K 
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DATA FORMAT (DF) TABLE 




58 

59 

60 

043457 

014 


.BYTE 

14 

043460 

000002 

OF 23: 

.WORD 

2 

61 

043462 

007 


.BYTE 

7 

62 

043463 

010 


.BYTE 

10 .-WORD 4 IS DECIMAL 

63 

043464 

042356 


.WORD 

DH23A 

64 

043466 

005 


.BYTE 

5 

65 

66 

67 

68 

043467 

000 


.BYTE 

0 

043470 

000001 

DF41: 

.WORD 

1 

69 

043472 

004 


.BYTE 

4 

70 

043473 

000 


.BYTE 

0 

71 





1 

72 

043474 

000001 

OF 42: 

.WORD 

73 

043476 

007 


.BYTE 

7 

74 

043477 

000 


.BYTE 

0 

75 






76 

043500 

000002 

0F43: 

.UORD 

2 

77 

043502 

007 


.BYTE 

7 

78 

043503 

000 


.BYTE 

0 

79 

043504 

042546 


.WORD 

DH43A 

80 

043506 

003 


.BYTE 

3 

81 

82 

83 

043507 

000 


.BYTE 

0 

043510 

000003 

DF44: 

.WORD 

3 

84 

043512 

007 


.BYTE 

7 

85 

043513 

160 


• BYTE 

160 

86 

043514 

042574 


.WORD 

DH44A 

87 

043516 

006 


.BYTE 

6 

88 

043517 

000 


.BYTE 

0 

89 

043520 

042650 


.WORD 

DH44B 

90 

043522 

003 


.BYTE 

3 

91 

92 

93 

043523 

000 


.BYTE 

0 

043524 

000003 

0F45: 

.WORD 

3 

94 

043526 

007 


.BYTE 

7 

95 

043527 

160 


.BYTE 

160 

96 

043530 

042574 


.WORD 

DH44A 

97 

043532 

006 


.BYTE 

6 

98 

043533 

000 


.BYTE 

0 

99 

043534 

042676 


.WORD 

DH45A 

100 

043536 

006 


.BYTE 

6 

101 

102 

103 

043537 

000 


.BYTE 

0 



.SBTTL 

START 

OF READ/WRITE BUFFER 

104 

105 

106 

043540 


BUFFER: 




000200 

.END 

200 
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ABASE = 

000000 

AT4 = 000020 

CI3 

032724 

DH1 7 

042057 

DTi 3 

043060 

ACDW1 = 

000000 

AT 5 = 000040 

CI4 

033032 

DH2 

041520 

DT13A 

C43076 

ACDW2 = 

000000 

AT6 = 000100 

CI5 

033366 

DH21 

042154 

DTI 7 

043110 

ACPUO P= 

000000 

AT7 = 000200 

CIS 

033410 

PH21A 

042232 

DT2 

042760 

ACTDRV 

031326 

AUNIT = 000000 

CKSWR = 

104407 

DH23 

042271 

DT21 

043130 

ACTSTR 

031327 

AUSWR = 000000 

CK.CHR 

C30644 

DH23A 

042356 

DT21A 

043144 

ADDWO = 

000000 

A W ECT1= 000000 

CK.DEC 

030616 

DH41 

042423 

DT23 

043154 

AODWl = 

000000 

AVECT2= OCOOOO 

CK.DIG 

030720 

DH42 

042461 

DT23A 

043172 

ADDW10= 

000000 

AVERGE 037520 

CK.NUM 

031104 

DH43A 

042546 

DT41 

043204 

ADD'J1 1 = 

000000 

A16 = 000400 

CK.OCT 

030570 

DH44A 

042574 

DT42 

043214 

AODWl 2= 

000000 

A17 = 001000 

CLKSTA 

001342 

DH44B 

042650 

DT43 

043232 

ADDW13= 

000000 

BAD TWO 003176 

CLOSE 

030510 

DH45A 

042676 

DT43A 

043250 

ADDW14= 

000000 

BAI = 000010 

CLR = 

000040 

DISPLA 

001156 

DT44 

043256 

AD OWl 5= 

000000 

BASFLG 001466 

CLRQUE 

036134 

DISPRE 

0001 7* 

DT44A 

043274 

ADDW2 = 

000000 

BITS 001560 

CNTCLR 

023146 

DLT = 

100000 

DT44B 

043310 

ADDW3 = 

000000 

BITO = 000001 

CNTRLC 

001322 

DMD = 

000001 

DT45 

043316 

ADDW4 = 

000000 

BiTOO = OOOOP 1 

COLON 

037163 

DORTI 

025662 

DT45A 

043334 

ACDW5 = 

000000 

BIT01 = OOOOtS 

comA 

037160 

DPB.A 

036506 

DT45B 

043350 

ADDW6 = 

000000 

BIT02 = OOOOC' 

CONT = 

000100 

DPB.B 

036530 

DT5 

042776 

ADDW7 = 


BIT03 = 00001 U 

COUNT 

025726 

DP8.C 

036552 

DVA = 

004000 

A0DW8 = 

000000 

BIT04 = 000020 

CPSAVE 

016332 

DP8.R 

036616 

DVC = 

000200 

ADDW9 = 

1 M 

BIT05 = 000040 

CR = 

000015 

DPE = 

000010 

EBL = 

020000 

ADEVCT= 

000000 

6IT06 = 000100 

CRLF = 

0002C0 

DPINT 

031262 

ECH = 

000100 

ADEVM = 

000000 

BIT07 = 000200 

CYINC 

001510 

DPR = 

000400 

ECI = 

004000 

AENV = 

000000 

BIT08 = 000400 

CYL.DS 

001366 

DPROS 

031272 

ECRC = 

ooiooo 

AENVM = 


BIT09 = 001000 

CYL.RD 

001360 

DRIVES 

037122 

EECC = 

000020 

AFATAL= 

liVitASM 

BIT1 = 000002 

C.SWR 

001314 

DROP 

037302 

EMPTVQ 

036166 

AMADR1 = 

000000 

BIT10 = 002000 

DCK = 

100000 

DRO = 

004000 

EMTVEC= 

000030 

AMADR2- 

000000 

BIT11 = 004000 

DDISP = 

177570 

DR VAC T 

031232 

EMI 

040311 

AHADR3* 

000000 

BIT12 = 010000 

DECSEC 

026632 

DRVCLR- 

000111 

EM10 

040455 

AMADR4= 

000000 

BIT13 - 020000 

DECSK 

006330 

DRVINT 

031610 

EM11 

040533 

AMAMS1* 

000000 

BIT14 = 040000 

DELTA 

001450 

DRVMSK 

001354 

EMI 2 

040570 

AMAMS2- 

000000 

BIT15 = 100000 

DFLT 

002456 

DRVQUE 

036200 

EMI 3 

040615 

AMAMS3= 

000000 

BIT2 = 000004 

DF1 

043364 

DRVSEL 

001330 

EMI 7 

040642 

AMAMS4= 

000000 

BIT3 = 000010 

DF10 

043404 

DRVSTA 

031242 

EM2 

040363 

AMSGAD= 

000000 

BIT4 = 000020 

DF11 

043410 

DRVTYP 

031252 

EM20 

040674 

AMSGLG- 

000000 

81 T5 = 000040 

DF12 

043414 

DRY = 

000200 

EM23 

040743 

AMSGTY= 


BIT6 = 000100 

DF13 

0*3424 

DSWR = 

177570 

EM24 

040772 

AMTYP1= 

000000 

81 T7 = 000200 

DF14 

043434 

DTADPS 

036574 

EM41 

041032 

AMTYP2= 


BIT8 = 000400 

DF17 

043440 

DTE = 

010000 

EM46 

041046 

AMTYP3= 

000000 

BIT9 = 001000 

DF2 

043370 

DTG = 

000020 

EM5 

040421 

AMTYP4= 

000000 

BLNKS1 040054 

DF21 

043444 

DTO = 

020000 

ERINDX 

025062 

AOE = 

001000 

BLNKS2 040053 

DF22 

043454 

DTUW 

031354 

ERMAX 

001316 

APASS = 


BLNKS3 040052 

DF23 

043460 

DTOO = 

000001 

ERR - 

040000 

APRIOR= 

000000 

BLNKS4 040051 

DF3 

043374 

DT01 = 

000002 

ERRCN 

001512 

APTCSU= 000040 

BPTVEC= 000014 

DF4 

043400 

DT02 = 

000004 

ERROR = 

104000 

APTENV= 

000001 

BSE = 100000 

DF41 

043470 

DT03 = 

000010 

ERRVEC= 

000004 

APTSIZ= 

000200 

BUFFER 043540 

DF42 

043474 

DT04 = 

000020 

FRR.CT 

001464 

APT c PO= 

000100 

BUSADR 001324 

DF43 

043500 

DT05 = 

000040 

ESRC = 

004000 

ASWREG= 

000000 

BYPASS 001350 

DF44 

043510 

DT06 = 

000100 

ES.SAV 

036252 

ATA = 

100000 

CALL. A 024076 

DF45 

043524 

DT07 = 

C00200 

EXCEED 

037313 

ATABIT 

031356 

CALL.B 024244 

DH1 

041503 

DT08 = 

000400 

EXIT. A 

011410 

ATESTN= 

000000 

CALL.C 024466 

DH10 

041605 

DTI 

042754 

EXITO 

005702 

ATO = 

000001 

CALL.R 024710 

DHlt 

041624 

DT10 

043016 

EXIT1 

006110 

ATI = 

000002 

CHANGE- 000001 

DH12 

041643 

DT11 

043022 

EXIT10 

010562 

AT2 = 

000004 

CHKDRV 001352 

DH12A 

041732 

DT12 

043026 

EXi <11 

011424 

AT3 = 

000010 

CI1 032572 

DH13A 

042011 

DT12A 

043044 

EXIT12 

012126 
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E X I T 1 3 

012666 

LC 

002326 

MSG. FT 

036723 

OPT 

032312 

RDY = 000200 

i 

C 

EXIT14 

013436 

LDCMD 

024032 

MSG.IC 

036720 

OR = 

000200 

RD.ADR 035570 

c 

EXIT15 

015140 

LF = 

000012 

MSG. IT 

036731 

PACX = 

000123 

RD.RM 035552 

( 

EXIT2 

006352 

LKS 

001546 

MSG.LC 

036715 

PAR = 

000010 

RD.FY! 035566 

c 

EXIT3 

006572 

LKV 

001542 

MSG.LS 

036737 

PAT 

002344 

RD.RM3 035624 . 


EXIT4 

007204 

LOOEV 

037100 

MSG.LT 

036726 

PDA = 

000400 

RD.RM4 035630 


EXITS 

007430 

lodflt 

023516 

MSG. PA 

036742 

PFECH 

016754 

RD.URD 035572 


( 

EXI » 6 

007720 

LODPRM 

023734 

MSG.R 

036710 

PFECH1 

016764 

READ = 000171 


c 

EXIT7 

010316 

LOP.CK 

025022 

MSGOUS 

037716 

PFECH2 

017046 

READHD= 000173 


c 

FC 

002324 

LPB 

001556 

MSG11X 

040056 

PFECH3 

017100 

READIN= 000121 


c 

FER = 

000020 

LPS 

001554 

MSG12X 

040131 

PFECH4 

017110 

RECAL = 000107 


c 

FMT16 = 

010000 

LPTAVL 

001326 

MSG13X 

040173 

PFTSTN 

017114 

RELEAS= 000113 


c 

FS 

002340 

LP.AVL 

023176 

MSG14X 

040235 

PGE = 

002000 

RESREG= 104413 


( 

FT 

002332 

LS 

002342 

MUR = 

001000 

PGM = 

001000 

RESVEC= 000010 


c 

F WO 

037604 

LSC = 

004000 

MWP = 

000010 

PHA = 

000200 

REV 037620 


c 

FI 

000002 

LSIT = 

000002 

MXF = 

001000 

PIP = 

020000 

REX = 010000 


c 

F2 

000004 

LST = 

002000 

MXSEEK 

037560 

P1R0 = 

177772 

RHVEC 001524 


G 

F3 

000010 

LSTPK 

001374 

MXSTAL 

001462 

PI RQVE= 

000240 

RH.ADR 001522 


H 

F4 = 

000020 

LT 

002334 

MXUNDU 

031374 

PKB 

001536 

RMADR 031366 


H 

F5 

000040 

MABOVE 

037752 

M.DPID 

022652 

PKC 

0015'.0 

RMAS = 000016 


H 

GETADR 

036276 

NBELOW 

037/23 

M.DP40 

022710 

PKCS 

001534 

RMBA = 000004 


H 

GETNUH 

026750 

MCLK = 

004000 

M.DP41 

022744 

PKV 

001530 

RMCS1 = 000000 


I 

G£TREG= 

000141 

MCPE = 

020000 

M.DP42 

022754 

PL FS = 

002000 

RMCS2 = 000010 


I 

GETREQ 

036222 

MDF = 

000100 

H.DP44 

023006 

POPQUE 

036234 

RMDA = 000006 


1 

GETSWR 

026656 

MEASUR 

037634 

M.DP50 

023020 

PRM 

002320 

RMDB = QC 0022 


I 

GO 

000001 

MI = 

000004 

NBA = 

100000 

PRMLMT 

002410 

RMDC = 000034 


I 

GTSUR = 

104406 

MOC - 

000400 

NCI 

002346 

PRMMSG 

002434 

RMDS = 000012 

I 

GTTST1 

027244 

MOH = 

020000 

NC2 

002350 

PRMPT 

002352 

RMDT s 000026 

! 

GTTST2 

027330 

MOL = 

010000 

NED = 

010000 

PRNO 

002726 

RMEC1 = 000044 

I 

GTTST3 

027620 

MPE = 

000400 

NEM = 

004000 

PRM1 

002742 

RMEC2 = 000046 

1 

A 

GTTST4 

027622 

MRD = 

002000 

NOASSYs 

000001 

PRM10 

003106 

IWERRS 031224 

1 

GTTST5 

027772 

MRMCS1 

036466 

NOCLOK 

037166 

PRM11 

003124 

RMER1 = 000014 

1 

GTTST6 

030032 

MRMVEC 

036476 

NODRVS 

037351 

PRM12 

003136 

RMER2 = 000042 


1 

GT.PRM 

027106 

MS 

000040 

NONE 

037153 

PRM13 

003146 

RMHR s 000036 


I 

GT.PR1 

027110 

MSC = 

000002 

NOTEST 

037375 

PRM14 

003156 

RMINIT 031376 


i 

I 

GT.PR2 

027240 

MSDRIV 

037273 

NOT PRS 

037036 

1 1 iBi rMl 

003166 

RMLA = 000020 


HCE = 

000200 

MSEN = 

010000 

NOTRM 

037063 


002764 

RMMR1 = 000024 


I 

MCI 

002000 

MSER = 

000200 

NOTSAF 

037053 


003002 

RMMR2 = 000040 


L 

HCRC - 

000400 

HSGAVG 

037710 

OBCK = 

100000 


003020 

RMOF = 000032 


L 

HT 

000011 

MSG801 

041445 

OBEN = 

040000 


003036 

RMR = 000004 



IAE = 

002000 

MSG802 

041375 

OCC = 

100000 

PRM6 

003054 

RMSN = 000030 


IBSAVE 

016334 

MSGB04 

041355 

OFD = 

000200 

PRM7 

003072 

RMTMR 035034 


L 

IC 

002330 

MSGB05 

041305 

OFFSET= 

000115 

PRO = 

000000 

RMVEC 031370 


L 

IE 

000100 

MSGB06 

041241 

OM = 

000001 

PR1 = 

000040 

RMWC = 000002 


H 

ILF = 

000001 

MSGB08 

041177 

ONECYL 

037453 

PR2 = 

000100 

RM.REG 036640 


1! 

ILR = 

000002 

MSG809 

041140 

OPE = 

020000 

PR3 = 

000140 

RM80 032054 


L 

INCCYL 

026602 

HSG81 4 

041076 

OPI = 

020000 

PR4 = 

000200 

ROTATE 037422 


L 

INCEC 

023030 

MSGMAX 

037702 

OPNFIP 

001336 

PR5 = 

000240 

RPT 002322 



INCSK 

006266 

MSGMIN 

037674 

OPNP.\M 

030236 

PR6 = 

000300 

RSTART 005102 


m 

INCTRK 

026552 

MSGNOT 

040036 

irwTST 

030064 

PR7 = 

000340 

RSTRT1 005132 


E 

IOTVEC= 

000020 

HSGSCH 

040001 

OPN.CT 

030070 

PS = 

177776 

RTC = 000117 


L 

IR 

000100 

MSGSEK 

040021 

0PN.N1 

030432 

PSEL = 

002( 

)00 

RTURN 015406 


L 

I SR 

033526 

MSGTST 

037265 

0PN.N2 

030436 

PSW = 

17?; 

76 

R6 =1000006 


L 

IT 

002336 

MSG.CS 

036750 

0PN.X1 

030450 

PURVECs 

000024 

R7 =2000007 


L 

ITEM41 

002240 

MSG. EC 

036746 

0PN.X2 

030454 

ODRV 

031302 

SAVCSW 001320 


L 

IVC = 

010000 

MSG.FC 

036712 

0PN.1 

030074 

RDCHR = 

104410 

SAVEFG 031330 

L 

LBC = 

002000 

MSG.FS 

036734 

0PN.2 

030116 

RDLIN = 

104411 

$AVREG= 104412 
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C 

i 


UNS = 

040000 

SDEVCT 

001244 

UNS TAT 

036777 

SDEVM 

001312 

UNTOFF 

037015 

SD'V 

022604 

UNTON 

037026 

SDOAGN 

015376 

UPE = 

020000 

SDT8L 

020104 

US1 = 

000001 

SENPAD 

015366 

US2 = 

000002 

SENDCT 

015322 

U54 = 

000004 

$ENULl 

015402 

VERIFY 

025302 

SENV 

001254 

VV = 

000100 

SENVW 

001255 

WC = 

000040 

$EOP 

015H2 

WCE - 

040000 

SEOPCT 

015314 

WCEFLG 

001434 

SERFlG 

001117 

WCF = 

000040 

SERMAX 

001131 

UD = 

000010 

SERROR 

015674 

WLE = 

004000 

SERRPC 

001132 

URCKD ^ 

000151 

SERRT8 

002000 

WRCKHD- 

000153 

SERTTL 

001126 

WRITE = 

000161 

SESCAP 

001222 

URL = 

004000 

SETA8L 

001254 

URTHD = 

000163 

SETENO 

001314 

URT.AD 

035714 

SFATAL 

001236 

WRT.RN 

035632 

sfflg 

015672 

WRT.R1 

035710 

SFILLC 

001172 

URT.R3 

035734 

SFILLS 

001171 

WRT.R4 

035740 

SFNT = 

000001 

WRT.R5 

035742 

SGDADR 

001134 

WRT.UO 

035712 

SGDDAT 

001140 

XXDP 

001470 

SGET42 

015356 

SAPTHD 

001100 

SGTSWR 

020524 

SATYC 

015452 

SHD = 

000000 

SATY1 

015426 

SH18TS 

001100 

$ATY3 

015434 

SHI NUN 

022600 

SATY4 

015444 

SICNT 

001120 

SAUTOe 

001150 

JINTAG 

001151 

S8ASE 

001310 

SITENB 

001130 

m mm 

001136 

$LF 

001232 

SBODAT 

001142 

SLFLG 

015671 

S6ELL 

001224 

SLONUH 

022602 

S8UF = 

000006 

SLPAOR 

ooii a 

SCKARC 

017446 

SLPERR 

001124 

SCKSUR 

020434 

MAORI 

001266 

SCWTA6 

OV 114 

MADR2 

001272 

scm = 

oft 306 

MADR3 

001276 

$C «2 = 

000014 

MADR4 

001302 

SCM3 = 

000006 

MAIL 

001234 

scm = 

000003 

MAWS1 

001264 

SCNTLC 

021346 

SMAMS2 

001270 

SCNTLG 

021360 

MAMS3 

001274 

SCNTLU 

021353 

MAMS4 

001300 

$COHNO= 

000002 

SNBADR 

001102 

SCPUOP 

001262 

MFLG 

015670 

SCRLF 

001231 

MNSW 

021376 

SCYL = 

000012 

MSGAO 

001250 

soeu 

020114 

MSGLG 

001252 

SDB2D 

022246 

MSGTY 

001234 

SDECVL 

022426 

MSWR 

021365 
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3MTYP1 

SMTVP2 

SMTYP3 

SMTYP4 

SMXCNT 

SNULL 

SNUTST- 

SOCNT 

SOMOOE 

SOVER 

SPASS 

SPASTM 

SPSEL = 

SOUES 

WAND 

SRDCHR 

SRDLIN 

SRDSZ = 


001265 

001271 

001275 

001301 

022030 

001170 

000001 

017674 

017676 

022014 

001242 

001106 

000003 

001230 

022502 

020776 

021066 

000024 


SREG = 

SREGAD 

SREGO 

SREG1 

SREG2 

SREG3 

SREG4 

SREG5 

JRESRE 

SRM80 

SR T NAD 

SSAVRE 

SS62D 

SSCOPE 

SSEC = 

SSETUP= 

SSSEN8= 

SSTUP = 


000014 

001174 

001176 

001200 

001202 

001204 

001206 

001210 

022070 

037115 

015400 

022032 

022212 

021432 

000010 

000167 

000020 

177777 


SSUPRS 

SSYLAD 

SSVPC = 

SSUR = 

S3UREG 

SSWRNK= 

STA7US= 

STESTN 

STINES 

STKJ8 

S7KCNT 

STAiNT 

STKOENs 

STKQ.’N 

STKQOU 

STKQSR 

STKS 

STK5RV 


. ABS. 043540 000 

000000 001 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 57856 WORDS ( 226 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
,A:CZRNGA/C=A:CZRNGA.DOC,CZRNGA.SYSMAC/M 


022442 

021760 

000220 

167000 

001256 

OOOOCO 

000016 

001240 

001220 

001162 

020124 

020134 

020133 

020126 

020130 

020132 

001160 

020204 


i 
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JTMPO 

001212 

STYPEC 

017330 

JTMP1 

001214 

STYPEX 

017450 

STMP2 

001216 

STYPOC 

017476 

STN = 

000016 

STYPON 

017512 

STNPWR 

022356 

S TYPOS 

017452 

STPB 

001166 

SUNIT 

001246 

STPFLG 

001173 

SUNITM 

001110 

ST PS 

001164 

SUSWR 

001260 

STRAP 

022126 

SVECT1 

001304 

STRAP2 

022150 

SVECT2 

001306 

STRK = 

00001 1 

SWCNT = 

000004 

STR P = 

000014 

SXOFF = 

000023 

STRPAD 

022162 

SXON * 

000021 

STSTM 

001104 

SXTSTR 

021450 

STSTNM 

001116 

SSGET4= 

000000 

STTYIN 

021322 

SOFILL 

017675 

STYPDS 

017700 

.sx = 

001100 

STYPE 

017116 






G 14 


CZRNGAO RH80 FCTNL PT4 MACRO V04.00 15-JAM 
CROSS REFERENCt TAELE (CREF V04.00 ) 


S1GET4 

15-1 

15-1# 



WFILL 

20-1 

20-1# 

20-1* 

20-1* 

S40CAT 

17-1 

23-1 



JAPTHD 

5-12 

5-12# 



USTAT 

16-1 

16-1 



IATY1 

16-1 A 




IATY3 

16-1 A 

19-1 



SATY4 

16-1# 

17-1 



SATYC 

16-1 

16-1# 



SAUTOG 

6-0# 

10-37* 

22-1 

22-1 

S8ASE 

6-0# 




*80 ADR 

6-0# 

45-11 



S8DDA1 

6-0# 

45-11 

45-14 


S8ELL 

6-0# 

10-41 

17-1 

17-1 

S8UF 

33-206 

36-84 

36-111 


SCHARC 

19-1 

19-1# 

19-1* 

19-1* 

SCKSUR 

22-1# 

25-1 

25-1 


SCM1 

6-0 

6-0 

6-0 

6-0 


6-0# 

6-0# 

6-0# 

6-0# 

*CM2 

6-0 

6-0 

6-0 

6-0 


6-0# 

6-0# 

6-0# 

6-0# 

SCM3 

6-0 

6-0 

6-0# 


SCM4 

6-0 

6-0 

6-0 

6-0 

tCMTAG 

6-0# 

10-32 

10-32 

10-32 

tCNTLC 

22-1 

22-1 

22-1 

22-1 

SCNTLG 

22-1 

22-1# 



SCNTLU 

22-1 

22-1 

22-1# 


tcomo 

33-203 

36-68 

36-125 


*CFW 

6-0# 




SCRlF 

6-0# 

10-64 

10-102 

10-147 


18-69 

18-79 

18-93 

18-100 


32-703 

32->07 

39-16 

39-19 

*CYL 

33-209 




*0820 

14-432 

14-583 

14-583 

26-1 

*08 L< 

21-1 

21-1 

21-1# 


SOF'.VL 

27-1 

27-1# 



SOE VCT 

6-0# 




SDEVft 

6-0# 




tDIV 

13-70 

13-335 

30-24# 

32-759 

SDOAGM 

15-1 

15-1 

15-1# 


*DTBL 

21-1 

21-1# 



SENOAD 

5-9 

10-37 

15-1# 

17-1 

SENOCT 

10-32 

11-44* 

11-61* 

11-70 

SENULL 

15-1 

15-1# 



*£NV 

6-0# 

10-37 

16-1 

16-1 

tENVM 

6-0# 

10-32 

16-1 

19-1 

*EOR 

12-37 

14-388 

15-1# 

22-7 

SEOPCT 

10-32* 

11-70* 

12-27* 

15-1 

tERFLG 

6-0# 

17-1 

17-1 

17-1* 

tERMAX 

6-0# 

10-32* 

12-69* 

13-44* 


14-221* 

14-305* 

14-388* 

25-1 

SERROR 

10-32 

17-1# 



tERRPC 

6-0# 

17-1 

17-1 

17-1 


45-12 

45-13 

45-15 

45-17 

SERRTB 

8-0# 

18-37 

18-38 


SERTTL 

6-0# 

15-1 

15-1 

15-1* 


82 07:05:59 PAGE S-1 


22-1 


17-1 

19-1* 

22-1 

22-1 

22-1 


6-0 

6-0# 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0# 

6-0 

6-0 

6-0 

6-0 

6-0 

10-32 

22-1# 

6-0 

10-32 

6-0# 

10-32 

6-0# 

10-32 

6-0# 

11-49 

11-69 

12-46 

12-68 

14-583 

19-1 

27-1# 

19-1 

19-1 

22-1 

22-1 


15-1# 





17-1 

19-1 




19-1 

32-23 

32-460 

39-51 



15-1# 

32-22* 




23-1 

23-1 

23-1 

23-1 

23-1 

13-79* 

13-109* 

13-141* 

13-170* 

13-239* 

23-1 

23-1 

23-1* 



17-1* 

17-1* 

18-111 

45-3 

45-4 

45-18 

45-19 

45-21 

45-24 


17-1 

17-1 

17-1* 




SEO 0175 


6-0 

6-0 

6-0 

6-0# 

6-0# 

6-0 

6-0 

6-0 

6-0# 

6-0# 

6-0# 





17-1 

22-1 

17-1 

22-1 

17-1 

32-15 

18-42 

32-687 

18-58 

32-688 


23-1* 

13-274* 13-316* 13-380* 14-23* 14-140* 

45-5 45-6 45-7 45-8 45-10 

i 
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i K 


SEQ 0176 


IESCAP 


SETABL 

IETEND 

IFATAL 

IFF LG 

IFILLC 

IF ILLS 

IFMT 

SGDADR 

tGODAT 

IGET42 

SGTSWR 

SHD 

SHIBTS 

IHINUM 

SiCNT 

1INTAG 

SITEMB 

ILF 

SLFLG 

SLONUM 

SLPADR 

ILPERR 


IMADR1 

IMADR2 

IMADR3 

IMADR4 

SflAIL 

IMAMS 1 

IMAMS2 

IMAMS 3 

SMAMS4 

IMBAOR 

IMF LG 

IMNEW 

IMSGAO 

IMSGLG 

IMSGTY 

IMSUR 

SMTYP1 

IMTYP2 

IMTYP3 

IMTYP4 

IMXCNT 

INULL 

SNWTST 


IOCNT 


6-0# 

10-32* 

14-54* 

14-161* 

32-255* 

32-263* 

32-296* 

32-304* 

38-196 

38-206 

38-207* 

38-209* 

6-0# 




5-12 

6-0# 



6-0# 

16-1* 



16-1 

16-1# 

16-1* 

16-1 * 

6-0# 

19-1 

19-1 

19-1 

6-0# 

19-1 

19-1 


33-202 




6-0# 

45-11 



6-0# 

45-11 



11-57 

12-9 

15-1# 


22-1# 

25-1 

25-1 


4-40 

4-40 

4-40 


5-12# 




10-32* 

13-70 

13-330 

29-1 

6-0# 

10-89* 

23-1 

23-1 

6-0# 

22-1 

22-1 

22-1 

6-0# 

17-1 

17-1 

17-1 

6-0# 

17-1 

17-1 

19-1 

16-1# 

16-1* 



10-32* 

29-1 

29-1 

29-1# 

6-0# 

10-32* 

13-70* 

13-92* 


14-161* 

6 - 0 # 

13- 250* 
23-1 

6 - 0 # 

6 - 0 # 

6 - 0 # 

6 - 0 # 

5- 12 

14- 23 

6 - 0 # 
6 - 0 # 
6 - 0 # 
6 - 0 # 


14-240* 

10-32* 

13-274* 

23-1 


5-12 

14-140 


14-240* 

13-44* 

13-286* 

23-1* 


6 - 0 # 

14-221 


6 - 0 # 

6 - 0 # 

6 - 0 # 

6 - 0 # 

23-1 

6 - 0 # 

13-44 

13-141# 

13- 316 

14- 140# 
20 - 1 # 


23-1 

19- 1 
13-4** 
13-141# 

13- 316 

14- 140# 

20 - 1 * 


14-312* 

13-79* 

13-316* 

32-455 


10-32 

14-305 


16-1 

16-1# 

16-1* 

16-1* 

22-1 

22-1# 



6-0# 

16-1 

16-1* 


6-0# 

16-1* 



6-0# 

16-1 

16-1 

16-1* 

22-1 

22-1# 




23-1 

19- 1 
13-44# 
13-170 

13- 316# 

14- 221 

20 - 1 * 


14-240* 

32-432* 


16-1* 


29-1 

23-1 

22-1 

17-1 

19-1 

29-1* 

13- 111* 

14- 326* 
13-109* 
13-339* 
32-579 


10-37 

14-388 


16-1* 


23-1# 

19-1 

13-44# 

13-170 

13- 316# 

14- 221 


14-326* 

32-439* 


13-44 

17-1 


13-79 

13-170# 

13- 380 

14- 221# 


14-408* 

32-456* 


17-1 

32-572* 


17-1 

32-576* 


17-1 

32-603* 


17-1 

32-610* 


23-1 • 
36-158 


32-225* 

36-196 


32-232* 

36-198 


29-1# 

29-1* 


23-1* 

23-1* 


22-1* 


17-1* 

17-1 

17-1* 

22-1 

22-1 

22-1 

32-532 



13-143* 

13-172* 

13-241* 

14-395* 

14-408* 


13-119* 

13-126* 

13-141* 

13-341* 

13-380* 

14-23* 


18-20 


13-276* 

23-1 

13- 151* 

14- 140* 


13-324* 

23-1 

13- 154* 

14- 221* 


13-382* 
23—1 * 

13- 170* 

14- 305* 


14-30* 

23-1* 

13- 185* 

14- 388* 


14-54* 14-147* 


13-206* 

17-1 


13-239* 

23-1 


13-79 

19-1 


13-109 

23-1 


13-141 13-170 13-239 13-274 13-316 13-380 


13-79 

13-170# 

13- 380 

14- 221# 


13-79# 

13-239 

13- 380# 

14- 305 


13-79# 

13-239 

13- 380# 

14- 305 


13-109 

13- 239# 

14- 23 
14-305# 


13-109 

13- |9# 

14- 305# 


13-109# 

13- 274 

14- 23# 
14-388 


13-109# 

13- 274 

14- 23# 
14-388 


13-141 

13- 274# 

14- 140 
14-388# 


13-141 

13- 274# 

14- 140 
14-388# 
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somooe 

20-1 

20-1# 

20-1* 

20-1* 

20-1* 

20-1* 

SOVER 

23-1 

23-1 

23-1 

23-1# 


15-1* 

SPASS 

6-0# 

10-32* 

15-1 

15-1 

15-1* 

SPASTN 

5-12# 






$pse: 

33-204 






SQUES 

6-0# 

17-1 

17-1 

19-1 

19-1 

22-1 

SR2A 

25-1 






SR AND 

13-70 

13-329 

29-1# 

32-531 



SRDCHR 

22-1# 

25-1 

25-1 




SR DOE C 

25-1 






SRDLIN 

22-1# 

25-1 

25-1 




SR DOC T 

25-1 






SRDSZ 

22-1 

22-1# 





SREG 

33-210 






SR EGO 

6-0# 

18-14* 

45-8 

45-10 

45-13 

45-17 

SREG1 

6-0# 

18-15* 

45-4 

45-5 

45-14 

45-14 

SREG2 

6-0# 

18-16* 

45-7 




SREG3 

6-0# 

18-17* 

45-3 

45-4 



SREG4 

6-0# 

<8-18* 

45-11 

45-14 



SREG5 

6-0# 

18-19* 

45-5 




SREGAD 

6-0# 

10-39 





SRESRE 

24-1# 

25-1 





SRHEXT 

33-167 

33-197 

38-90 




SRM80 

10-135 

41-24# 





SR T NAD 

15-1# 






SSAVRE 

24-1# 

25-1 

25-1 




SSB2D 

14-428 

26-1# 

32-695 

32-700 

32-736 

32-741 

SSCOPE 

10-32 

23-1# 





SSEC 

33-207 






SSETUP 

4-315 

4-315 

4-315 

4-315 

4-315 

4-315 


10-32 

10-32 

10-32 

10-32 

10-32 

10-32 


15-1 

15-1 

17-1 

17-1 

17-1 

17-1 

SSSENB 

32-256* 

32-297* 

32-560 

33-212 

36-124* 


SSTUP 

4-315 

4-315 

4-315 

4-315 

4-315 

4-315 


4-315# 

4-315# 

4-315# 

4-315# 



SSUPRS 

14-429 

14-433 

14-583 

14-583 

28-1# 

32-696 


32-766 

32->37 





SSVLAD 

23-1 

23-1# 





SSVPC 

5-9 

5-9# 





SSWR 

4-30# 

4-40 

4-41 

4-41 

4-41 

4-41 

53-44 


10-32 

10-32 

10-32 

10-32 

10-32 


14-23 

14-140 

14-221 

14-305 

14-388 

15-1 


17-1 

17-1 

17-1 

17-1 

17-1 

17-1 


23-1 

23-1 

23-1 

23-1 

23-1 

23-1 

SSWREG 

6-0# 

10-32 





SSWRMK 

23-1 






STATUS 

33-211 

36-67* 





STESTN 

6-0# 

13-44* 

13-45 

13-79* 

13-80 

13-109* 


13-275 

13-316* 

13-317 

13-380* 

13-381 

14-23* 


14-389 

18-24 

18-27 

23-1* 



STINES 

6-0# 

10-32* 

13-44* 

13-79* 

13-109* 

13-141* 


H-305* 

14-388* 

15-1* 

23-1 

23-1 

23-1 

STUB 

6-0# 

19-1 

19-1 

22-1 

22-1 

22-1 

STKCNT 

22-1 

22-1 

22-1# 

22-1* 

22-1* 

22-1* 

SNUNT 

10-79 

15-4 

22-1 

22-1 

22-1# 


STKQEN 

22-1 

22-1 

22-1# 





SEO 0177 


22-1 22-1 


45-19 

45-21 

45-24 





32-746 

32-751 

32-753 

32-763 

32-766 

32->37 


4-315# 

10-32 

22-1 

4-315# 

10-32 

22-1 

4-315# 

10-32 

22-1 

4-315# 

10-32 

22-1 

4-315# 

10-37 

23-1 

4-315# 

10-37 

10-32 

10-37 

4-315# 

4-315# 

4-315# 

4-315# 

4-315# 

4-315# 

4-315# 

32-736 

32-741 

32-743 

32-746 

32-751 

32-753 

32-763 

4-41 

13-109 

15-1 

23-1 

23-1 

4-41 

13-141 

15-1 

23-1 

23-1 

4-41 

13-170 

15-1 

23-1 

23-1 

rvjrsj— »-» 

MWNMM 

1 1 1 1 • 

6-0 

13-274 

17-1 

23-1 

23-1 

6-0 

13-316 

17-1 

23-1 

6-0 

13-380 

17-1 

23-1 

13- 141* 

14- 140* 

13- 142 

14- 141 

13- 170* 

14- 221* 

13- 171 

14- 222 

13- 239* 

14- 305* 

13- 240 

14- 306 

13- 274* 

14- 388* 

13-239* 

23-1* 

22-1 

13-274* 

22-1 

13-316* 

22-1 

13-380* 

14-23* 

14-140* 

14-221* 


-3 


22-1 


45-18 


32-743 

4-315# 

10-32 

22-1 

4-315# 

32-701 


4-41 

13-79 

15-1 

17-1 

23-1 


13- 110 

14- 24 

13-170* 

23-1* 

22-1 
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STKQIN 

22-1 

22-1 

22-1# 

22-1* 

22-1* 

22-1* 

22-1* 








STKQOU 

22-1 

22-1 

22-1# 

22-1* 

22-1* 

22-1* 









stkosr 

22-1 

22-1 

22-1 

22-1# 



22-1 

22-1 

22-1* 






STKS 

6-0# 

19-1 

19-1 

22-1 

22-1 

22-1 

22-1* 

22-1* 

22-1* 

22-1* 

22-1* 

STKSRV 

22-1 

22-1# 







45-17 






STNPO 

6-0# 

18-11* 

45-5 

45-8 

45-10 

45-12 

45-13 

45-15 

45-18 

45-19 

45-21 

45-24 


STNP1 

STMP2 

STN 

6-0# 

6-0# 

4-31# 

4-40 

13*44 

13-44 

13-44 

13-44 

13-44 

13-44 

13-44 

13-44 

13-44 

13-44 

13-44# 

13-45 

13-50 

13-70 

13-79 

13-79 

13-79 

13-/9 

13-79 

13-79 

13-79 

13-79 

13-79 

13-79 

13-79# 

13-80 


13-88 

13-96 

13-109 

13-109 

13-109 

13-109 

13-109 

13-109 

13-109 

13-109 

13-109 

13-109 

13-109# 

13-110 


13-114 

13-132 

13-141 

13-141 

13-141 

13 -141 

13-141 

13-141 

13-141 

13-141 

13-141 

13-141 

13-141# 

13-142 


13-146 

13-160 

13-170 

13-170 

13-170 

13-170 

13-170 

13-170 

13-170 

13-170 

13-170 

13-170 

13-170# 

13-171 


13-175 

13-226 

13-239 

13-239 

13-239 

1J-239 

13-239 

13-239 

13-239 

13-239 

13-239 

13-239 

13-239# 

13-240 


1 3-244 

13-258 

13-263 

13-274 

13-274 

13-274 

13-274 

13-274 

13-274 

13-274 

13-274 

13-274 

13-274 

13-274# 


13-275 

13-279 

13-288 

13-305 

13-316 

13-316 

13-316 

13-316 

13-316 

13-316 

13-316 

13-316 

13-316 

13-316 


13-316# 

13-317 

13-320 

13-363 

13-367 

* 3-380 

13-380 

13-380 

13-380 

13-380 

13-380 

15-380 

13-380 

13-380 


13-380 

13-380# 

13-381 

13-389 

13-403 

J 4—23 

14-23 

14-23 

14-23 

14-23 

14-23 

14-23 

14-23 

14-140 

14-23 


14-23 

14-23# 

14-24 

14-27 

1 4-33 

14-60 

14-111 

14-129 

14-140 

14-140 

14-140 

14-140 

14-140 


14-140 

14-140 

14-140 

14-140 

14-140# 

14-141 

14-144 

14-150 

14-200 

14-205 

14-221 

14-221 

14-221 

14-221 


14-221 

14-221 

14-221 

14-221 

14-221 

14-221 

14-221# 

14-222 

14-225 

14-282 

14-287 

14-305 

14-305 

14-305 


14-305 

14-305 

14-305 

14-305 

14-305 

14-305 

14-305 

14-305# 

14-306 

14-309 

14-315 

14-370 

14-375 

14-388 


14-388 

14-388 

14-388 

14-388 

14-388 

14-388 

14-388 

14-388 

14-388# 

14-389 

14-392 

14-398 

14-450 

14-498 


14-549 

14-595 

32-<69 

32-<96 

32-=89 










STNPWR 

27-1 

27-1 

27-1# 












$TPB 

6-0# 

10-44* 

17-1* 

17-1* 

19-1 

19-1 

19-1* 








STPFLG 

6-0# 

19-1 

19-1 

19-1 

19-1 

19-1 









$TPS 

6-0# 

10-43* 

17-1* 

17-1* 

19-1 








STRAP 

10-32 

25-1# 













STRAP2 

25-1 

25-1# 













STRK 

STRP 

33-208 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 


25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 


25-1 

25-1 

25-1# 

25-1# 

25-1# 

25-1# 

25-1# 

25-1# 

25-1# 

25-1# 

25-1# 

25-1# 

25-1# 

25-1# 

STRPAO 

25-1 

25-1# 













STSTN 

STSTNN 

5- 12# 

6- 0# 

13-44* 

13-79* 

13-109* 

13-141* 

13-170* 

13-239* 

13-274* 

13-316* 

13-380* 

14-23* 

14-140* 

14-221* 

14-305* 

14-388* 

15-1* 

17-1 

17-1 

17-1 

18-11 

23-1 

23-1 

23-1 

23-1 

23-1 

23-1* 

32-184 

32-767 

STTYIN 

22-1 

22-1 

22-1 

22-1 

22-1 

22-1# 









STYP8N 

25-1 














STVPDS 

21-1# 

25-1 

25-1 

25-1 











STYPE 

16-1 

19-1# 

25-1 

22-1 










STYPEC 

19-1 

19-1 

19-1 

19-1# 










STYPEX 

19-1 

19-1 

19-1# 












STYPOC 

20-1# 

25-1 

25-1 












STYPON 

20-1 

20-1# 

25-1 












STYPOS 

20-1# 

25-1 













SUN IT 

6-0# 














SUNIT* 

5-12# 














SUSWR 

6-0# 














SVECT1 

6-0# 














SVECT2 

6-0# 














SWCNT 

33-205 

36-82 

36-105 

36-108 











SXOF c 

19-1 

19-1 













SXON 

19-1 

19-1 

22-1 













i 


inioAU KHOU M.INL Hl<* HAIKU VU<*.UU 1 3-JAIU-O^ \}( l\jmy rAUC 

CROSS REFERENCE TABLE (CREF V04.00 ) 


u \(V 


SXTSTR 

23-1# 


.SASTA 

16-1 

16-1 

.sx 

5-12 

5-12# 

A16 

4-86# 


A17 

4-87# 


ABASE 

6-0 

6-0 

ACDW1 

6-0 


ACDW2 

6-0 

6-0 

ACPUOP 

6-0 

ACTDRV 

33-118# 

35-13* 

ACTSTR 

33-124# 

37-8* 

AODWO 

6-0 


AODU1 

6-0 


AODUIO 

6-0 


AODW11 

6-0 


AODW1 2 

6-0 


AOOU13 

6-0 


ADDW14 

6-0 


AOOU15 

6-0 


AODU2 

6-0 


AODW3 

6-0 


ADDW4 

6-0 


AODU5 

6-0 


ADDW6 

6-0 


A0DW7 

6-0 


A00U8 

6-0 


A0DW9 

6-0 


ADEVCT 

6-0 

6-0 

ADEVH 

6-0 

6-0 

AENV 

6-0 

6-0 

AENVM 

6-0 

6-0 

AFATAL 

6-0 

6-0 

AMADR1 

6-0 

6-0 

ANA0R2 

6-0 

6-0 

AHAOR3 

6-0 

6-0 

AMADR4 

6-0 

6-0 

AMAHS 1 

6-0 

6-0 

AMAMS2 

6-C 

6-0 

AMAMS3 

6-0 

6-0 

AMAMS4 

6-0 

6-0 

AMS GAD 

6-0 

6-0 

AMSGLG 

6-0 

6-0 

AMSGTY 

6-0 

6-0 

AMTYP1 

6-0 

6-0 

AMTYP2 

6-0 

6-0 

AMTYP3 

6-0 

6-0 

AMTYP4 

6-0 

6-0 

AOE 

4-160# 


APASS 

6-0 

6-0 

APR I OR 

6-0 


APTCSU 

16-1# 

19-1 

APTENV 

16-1 

16-1# 

APTSIZ 

10-32 

16-1# 

APTSPO 

16-1 

16-1# 

ASWREG 

6-0 

6-0 

ATO 

4-212# 



35-57* 36-3* 36-11 

37-23* 


17-1 19-1 

19-1 


37-6 


L 14 


SEQ 0180 
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ATI 

4-213# 






AT2 

4-214# 






AT3 

4-215# 






AT4 

4-216# 






AT5 

4-217# 






AT6 

4-218# 






AT7 

4-219# 






ATA 

4-147# 





33-160# 

ATABIT 

11-31 

37-78 

32-10 

32-21 

32— <23 

32-<29 


ATESTN 

6-0 

6-0 





AUNIT 

6-0 

6-0 





AUSWR 

6-0 

6-0 





AVECT1 

6-0 

6-0 





AVECT2 

6-0 

6-0 





AVERGE 

7-0 

41-40# 





BAD TWO 

10-3# 

10-34 





BA1 

4-104# 






BASFLG 

7-0# 

13-81* 





BITO 

4-80# 




11-8 

12-39 

BITOO 

4-80 

4-80# 

7-0 

7-0 

BIT01 

4-80 

4-80# 

7-0 

7-0 

32-457 

32-485 

BIT02 

4-80 

4-80# 

7-0 

7-0 

32-457 

32-488 

8IT03 

4-80 

4-80# 

7-0 

7-0 


36-221 

BIT04 

4-80 

4-80# 

7-0 

7-0 

32-491 

BIT05 

4-80 

4-80# 

7-0 

7-0 

32-494 

36-219 

8IT06 

4-80 

4-80# 

7-0 

7-0 

32-497 

34-106 

BIT07 

4-80 

4-80# 

7-0 

7-0 

34-106 

35-221 

BIT08 

4-80 

4-80# 

7-0 

32-158 

32-485 

34-106 

BIT09 

4-80 

4-80# 

7-0 

17-1 

17-1 

23-1 

BIT1 

4-80# 






8IT10 

4-80# 

7-0 

17-1 

32-457 

32— ?65 


81 Til 

4-80# 

7-0 

23-1 

34-81 

35-72 

35-88 

BIT12 

4-80# 

7-0 

32-457 

34-76 

34-94 

34-106 

BIT13 

4-80# 

7-0 

17-1 

32-457 

36-193 

32-457 

BIT14 

4-80# 

7-0 

14-465 

14-513 

23-1 

BIT15 

4-80# 

7-0 

32-633 

32-634 

35-46 

35-49 

37-52 

37-66 

37-103 

37-110 



BIT2 

4-80# 

37-110 





B1T3 

4-80# 






BIT4 

4-80# 






81 T5 

4-80# 






81 T6 

4-80# 

35-74 





BIT7 

4-80# 

36-45 





81 T8 

4-80# 

36-45 





81 T9 
BITS 

4-80 # 
7-0# 

13-44 

13-79 

13-109 

13-141 

13-170 

14-388 

32-<80 

32— =14 

32-=43 

32->03 

32-743 

BLNKS1 

41-58# 






8LNKS2 

10-130 

18-63 

18-89 

18-96 

18-103 

32->32 

BIN* S3 

41-56# 






BLNKS4 

10-104 

41-55# 





BPTVEC 

4-80# 



32-311 

32-506 


BSE 

4-281# 

32-237 

32-270 


BUFFER 

32-554* 

! L _ 1 A / M 

32-556 

32-558 

32-563 

32-565 

32-566 


46-104# 


34-99 

35-96 

35-100 

35-167 

36-224 

36-238 

36-246 

WAN 

1 1 

o 

17-1 

35-251 

23-1 

23-1 

32-146 



37-54 

35- 40 

36- 23 

37- 66 
23-1 

35- 111 

36- 219 

32-500 

36-53 

36-221 

35-145 

38-116 

36- 242 

37- 52 - 

38-77 



36-269 

35-51 

35-84 

38-19 

38-54 

38-117 



32-491 

35-51 

35-46 

35-81 

35-81 

35-84 

36-285 

35-251 

37-103 

36-53 

38-114 

36-219 

36-221 


13-239 

13-274 

13-316 

13-380 

14-23 

14-140 

14-221 

41-57# 







32-567 

32-632 

32-669 

40-8 

40-33 

40-58 

40-83 


36-268 


36-285 


14-305 


40-108 


M I*. 
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BUSADR 

7-0# 

10-15* 

10-18* 

10-22* 

10-25* 

39-13 

39-15* 








BYPASS 

7-0# 

12-37* 

13-70* 

13-92* 

13-117* 

13-149* 

13-182* 

13-247* 

13-282* 

13-324* 

13-392* 

14-54* 

14-161* 

14-240* 


14-326* 

14-408* 

14-452* 

14-500* 











C.SWR 

7-0# 

11-7 

11-10 

12-39 

13-182 

14-58 

14-109 

32-93 

32-103 

32-113 

32-146 

32-209 

32-284 

32-325 


32-529 

32-; 55 

32-;59 

32-;60* 











CALL. A 

12-43 

12-45 

13-ft) 

13-540 

14-54 

14-161 

14-240 

14-326 

14-408 

14-453 

14-501 

32-225# 

32-228 

32-575 

CALL.B 

13-70 

13-95 

13-121 

13-128 

13-152 

13-156 

13-187 

13-193 

13-208 

13-214 

13-252 

13-254 

13-292 

13-294 


13-296 

13-298 

13-300 

13-302 

13-360 

13-395 

32-255# 

32-259 







CALL . C 

13-94 

13-394 

32-296# 

32-300 











CALL.R 

14-473 

14-521 

32-242 

32-275 

32-316 

32-432# 

32-435 








CHANGE 

4-8# 














CHKDRV 

7-0# 

12-13* 

12-17* 

12-22 

15-1 

32-35* 

32-36 

32-188 

45-8 

45-10 

45-12 

45-13 

45-15 

45-17 


45-18 

45-19 

45-21 

45-24 











CI1 

35-101 

35-131# 













CI3 

35-103 

35-154# 













CI4 

35-92 

35-172# 













CIS 

35-150 

35-168 

35-234# 












CI8 

35-36 

35-110 

35-141 

35-143 

35-144 

35-146 

35-148 

35-157 

35-164 

35-166 

35-178 

35-183 

35-187 

35-189 


35-194 

35-198 

35-200 

35-210 

35-219 

35-230 

35-242# 

36-25 

36-44 

36-47 

36-50 

36-103 

36-117 

36-119 


36-121 

36-123 

36-126 

36-155 

36-232 

37-95 

38-89 








CK.CHR 

32-; 85 

32-<20 

32— >41 

32-819# 

32-856 

32-863 

32-868 

32-A13 







C 1C. DEC 

32-797# 

32-827 













C 1C. DIG 

32-<22 

32->55 

32-850# 












CIC.NUM 

32-; 87 

32-896# 













CK.OCT 

32-<57 

32— <61 

32-<84 

32-<88 

32-779# 

32-898 

32-A08 








CKSWR 

17-1 

17-1 

23-1 

25-1# 











CLKSTA 

7-0# 

11 '71 

14-25 

14-142 

14-223 

14-307 

14-390 

32-78* 

32-80* 

32-86* 





CLOSE 

32-732 

32-737 

32-749# 












CLR 

4-108# 

32-34 

32-599 












CLRQUE 

34-17 

37-75 

38-130# 












CNTCLR 

11-3 

12-30 

14-84 

14-93 

14-103 

14-105 

14-177 

14-195 

14-197 

14-254 

14-266 

14-277 

14-279 

14-340 


14-352 

14-365 

14-367 

14-467 

14-515 

14-544 

14-593 

32-33# 







CNTRLC 

7-0# 

10-19* 

10-26* 

10-98 

11-4 










COLON 

41-28# 














COMMA 

11-65 

12-49 

14-583 

32-19 

32-740 

32-750 

32-765 

41-27# 







CONT 

4-178# 














COUNT 

14-95 

14-179 

14-257 

14-269 

14-343 

14-355 

32-648# 








CPSAVE 

17-1 

17-1 

17-1 

17-1 

17-1 

17-1# 

17-1* 

17-1* 

18-111 

23-1 

23-1 

23-1 

23-1* 

23-1* 

CR 

4-80# 

19-1 

19-1 












CRLF 

4-80# 

10-6 

10-37 

10-37 

10-58 

10-69 

10-75 

14-585 

15-1 

15-1 

15-1 

19-1 

19-1 

32-;53 


32-<17 

39-53 

39-54 

41-14 

41-17 

41-25 

41-29 

41-31 

41-32 

41-34 

41-35 

41-35 

41-36 

41-56 


41-38 

41-39 

41-39 

41-40 

41-40 

41-41 

41-42 

41-43 

41-44 

41-46 

41-47 

41-48 



CYINC 

7-0# 

14-418* 

14-419 

14-436 

14-488 

14-541* 









CYL.DS 

7-0# 

32-233* 

32-264* 

32-305* 

32-440* 

32-571* 

32-611* 

45-8 

45-9 

45-10 

45-13 

45-15 

45-21 

45-24 

CYL.RD 

7-0# 

32-565* 

45-9 












DCK 

4-166# 














DDISP 

4-80# 

6-0 

10-32 












DECSEC 

32-820# 














DEC SIC 

13-127# 

13-131 













DELTA 

7-0# 














DF1 

8-14 

46-3# 













DF10 

8-75 

46-19# 













DF11 

8-86 

46-23# 













DF12 

8-100 

46-27# 













DF 13 

8-114 

8-137 

46-34# 












DF14 

8-123 

8-146 

46-41# 
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DF17 

OF 2 

DF21 

DF22 

OF 23 

DF3 

OF 4 

DF41 

DF42 

OF 43 

OF 44 

OF 45 

DFLT 

DH1 

OHIO 

DH11 

DH12 

DH12A 

DH13A 

DH17 

DH2 

DH21 

DH21A 

DH23 

DH23A 

DH41 

DH42 

DH43A 

DH44A 

DH44B 

DH45A 

DISPLA 

D1SPRE 

DLT 

DMD 

DORTI 

OPB.A 


DP8.B 


DP8.C 

OPB.R 

OPE 

DPINT 

DPR 

OPRQS 

ORIVES 

DROP 

ORQ 

DRVACT 

ORVCLR 


8-157 

8-168 

46-45# 

8-25 

8-50 

46-7# 

8-182 

46-49# 


8-191 

46-56# 


8-204 

8-217 

46-60# 

46-11# 



46-15# 



8-245 

46-68# 


8-256 

46-72# 


8-269 

46-76# 


8-285 

46-33# 


8-301 

8-317 

46-93# 

9-53# 

32-133 


8-12 

44-3# 


8-73 

44-5# 


8-84 

44-6# 


8-98 

8-112 

8-135 

44-8# 

46-30 


44-9# 

46-37 


8-155 

8-166 

44-10# 

8-23 

8-48 

44-4# 

8-180 

44-11# 


44-12# 

46-52 


8-202 

8-215 

44-13# 

44-14# 

46-63 


8-243 

44-15# 


8-254 

8-267 

44-16# 

44-17# 

46-79 


44-18# 

46-86 

46-96 

44-19# 

46-89 


44-20# 

46-99 


6-0# 

10-32* 

10-32* 

5-1# 

10-32 



4-118# 

4-170# 

14-76 

12-32* 

14-161* 

14-4%* 

12- 33* 

13- 125* 
13-243* 
13-338 
32-264 
12-34* 
32-301 

32- 434 

4-140# 

33- B3# 
11-43 

32- 18 
4-235# 

33- 50# 
4-294# 


4-193# 

14-168 

12- 38* 
14-240* 
14-497* 

13- 47* 
13-129* 
13-251* 
13-361* 
32-264 
13-83* 
32-305 
32-436 


35-27 

41-25# 

41-33# 


8-283 8-299 8-315 44-7# 


14-245 

12- 41* 
14-240* 
32-227 

13- 48* 
13-130 
13-253* 
13-362 
32-264 
13-85* 
32-305 
32-440 


17-1* 

23-1* 




14-331 

14-457 

14-505 

32-620# 


12-42* 

12-44* 

13-46* 

13-319* 

13-338* 

14-240* 

14-326* 

14-326* 

14-326* 

14-408* 

32-229 

32-233 

32-233 

32-233 

32-233 

13-49* 

13-70* 

13-70* 

13-82* 

13-84* 

13-144* 

13-145* 

13-150* 

13-155* 

13-173* 


13-277* 

13-366* 

32-264 

13-87* 

32-305 

32-440 


13-278* 

13-383* 

32-276 

13-SS4* 

32-305 

32-440 


13-291* 

13-385* 

32-279 

13-3S6* 

32-317 

32-440 


13-295* 

13-400* 

32-323* 


13- 342 

14- 408* 
32-243 

13-174* 

13-297* 

13-401 

13-397 

40-53# 


14-54* 

14-408* 

32-442 

13-112* 

13-186* 

13-299* 

32-211* 


14-54* 

14-447* 

32-574* 

13-113* 

13-192* 

13-301* 

32-214* 


14-54* 

14-448* 

40-3# 

13-118* 

13-207* 

13-318* 

32-256* 


14-161* 

14-449* 

13-122* 

13-213* 

13-326* 

32-258 


14-161* 

14-495* 

13-123 

13-242* 

13-336* 

32-260 


13-399* 32-212* 32-215* 32-297* 32-299 


34-46 34-49 35-21 36-178 36-191 36-275 36-277* 37-44 37-80 37-89 37-97* 


35-105* 36-181 36-289* 37-46 37-82 37-91 


37-106* 


35-32 35-237* 35-243 35-253* 36-16* 36-184 36-222* 36-237* 37-55* 37-60 37-6?* 
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DRVINT 

34-37 

34-71# 

35-23 

35-76 

DRVMSK 

7-0# 

12-14* 

12-15 

12-18* 

ORVQUE 

35-30 

35-38 

38-162# 


DRVSEL 

7-0# 

11-21* 

11-31* 

11-46 

ORVSTA 

10-105 

11-25 

12-23 

33-60# 


35-25 

35-44 

35-78 

35-82 

DRVTYP 

10-108 

33-70# 

34-73* 

34-85* 

DRY 

4-139# 




DSWR 

4-80# 

6-0 

10-32 


DTOO 

4-226# 




DT01 

4-227# 




DT02 

4-228# 




DT03 

4-229# 




DT04 

4-230# 




0T05 

4-231# 




0T06 

4-232# 




0T07 

4-233# 




DT08 

4-234# 




0T1 

8-13 

45-3# 



DT10 

8-74 

45-6# 



DT1 1 

8-85 

45-7# 



DT12 

8-99 

45-8# 



DT12A 

45-9# 




DTI 3 

8-113 

8-136 

45-10# 


DT13A 

8-122 

8-145 

45-11# 


DTI 7 

8-156 

8-167 

45-12# 


DT2 

8-24 

8-49 

45-4# 


DT21 

8-181 

45-13# 



DT21A 

8-190 

45-14# 



DT23 

8-203 

8-216 

45-15# 


DT23A 

45-16# 




DT41 

8-244 

45-17# 



DT42 

8-255 

45-18# 



DT43 

8-268 

45-19# 



DT43A 

45-20# 




DT44 

8-284 

45-21# 



DT44A 

45-22# 




DT44B 

45-23# 




DT45 

8-300 

8-316 

45-24# 


DT45A 

45-25# 




DT45B 

45-26# 




DT5 

45-5# 




DTADP8 

12-35* 

13-351* 

13-354 

13-357* 


14-183 

14-187* 

14-188 

14-195 


32-601 * 

32-602* 

32-605 

32-607 

DTE 

4-163# 




DTG 

4-197# 




DTO 

4-206# 




DTUW 

33-154# 

34-23 

35-94 

35-149* 

OVA 

4-133# 




DVC 

4-275# 




EBL 

4-185# 




2CH 

4-157# 




ECI 

4-259# 




ECRC 

4-181# 




EECC 

4-176# 





36-256 

12-26 

36-278 

37-58 



12-5 

12-15 

12-26* 

22-6* 

32-10 

1 1 1 
orvjrvj 
O^IN 
* O * 
♦ 

34- 28* 
36-280 

35- 47 

34- 29* 
37-98* 

35- 260* 

34-30* 

34-40* 


13-359* 

14-57 

14-84 

14-93 

14-103 

14-254 

14-266 

14-277 

14-340 

14-352 

32-611 

32-611 

32-611 

32-611 

40-78# 

35-246 

35-254 

35-256* 

36-6 

36-17* 


32-21* 32-<16* 32— <23* 32-<29* 39-50* 
34-72* 34-80* 34-103* 34-108* 35-19 


14-163* 

14-164* 

14-170 

14-177 

14-182* 

14-365 

14-467 

14-515 

14-593 

32-600* 

36-65* 

37-49 

37-63 

37-73* 

37-84 
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SEO 01 U 


C 15 


EMI 

8-11 

42-3# 




EM10 

8-72 

42-6# 




EMIT 

8-83 

42-7# 




EMI 2 

8-97 

42-8# 




FM13 

8-111 

8-134 

8-179 

42-9# 


EMI 7 

8-154 

42-10# 




EM2 

8-22 

42-4# 




EM20 

8-165 

42-11# 




EM23 

8-201 

42-12# 




EM24 

8-214 

42-13# 




EM41 

8-242 

8-253 

8-266 

8-282 

8-298 

EM46 

8-314 

42-15# 




EM5 

8-47 

42-5# 




EMPTYO 

35-258 

36-5* 

36-223 

36-231 

36-287 

EMTVEC 

4-80# 

10-32* 

10-32* 



ERINDX 

32-233 

32-264 

32-305 

32-440 

32-479# 

ERMAX 

7-0# 

32-13 




ERR 

4-146# 

14-82 

14-91 

14-175 

14-252 

ERR.CT 

7-0# 

12-69 




ERRCN 

7-0# 

10-84* 

10-87* 

10-87* 

10-87* 

ERROR 

4-80# 





ERRVEC 

4-80# 

10-32 

10-32* 

10-32* 

10-34* 


23-1* 

23-1* 

32-47* 

32-48* 

32-53 

ES.SAV 

36-158 

36-196 

36-198 

J8-205# 


ESRC 

4-183# 





EXCEED 

32-20 

41-34# 




EXIT. A 

14-128 

14-128# 




EXITO 

13-70 

13-70# 




EXIT1 

13-92 

13-96# 




EXIT10 

13-392 

13-403# 




EXIT11 

14-29 

14-54 

14-54 

14-54 

14-128 

EXIT12 

14-146 

14-161 

14-161 

14-161 

14-205# 

EXIT13 

14-240 

14-240 

14-240 

14-240 

14-287# 

EXIT14 

14-311 

14-326 

14-326 

14-326 

14-375# 

EXIT15 

14-394 

14-408 

14-408 

14-408 

14-452 

EXIT2 

13-117 

13-132# 




EX1 T 3 

13-149 

13-160# 




EXIT4 

13-182 

13-226# 




EXIT5 

13-247 

13-260 

13-263# 



EXIT6 

13-282 

13-290 

13-305# 



EXIT7 

13-324 

13-365 

13-367# 



FI 

4-128# 





F2 

4-129# 





F3 

4-130# 





F4 

4-131# 





F5 

4-132# 





FC 

9-7# 

13-70 

13-70 

13-70 

13-86 


13-326 

13-327 

13-334 

13-387 

13-388 


14-345 

14-408 

14-437 

14-535 

14-538 

FER 

4-155# 





FMT16 

4-260# 





FS 

9-13# 

13-47 

13-82 

13-112 

13-144 

FT 

9-10# 

13-48 

13-84 

13-113 

13-145 

FWO 

41-42# 





GETADR 

10-82 

39-13# 




GET NUN 

32-; 56 

32-; 78# 

39-23 

39-30 



42- 14# 

37-111 38-148# 

32-611 


14-264 

14-338 

14-350 




10-87* 

10-87* 

10-87* 

10-87* 

32-12* 

32-13 

10-35* 

32-53* 

17-1 

32-73 

17-1* 

39-36 

17-1* 

39-37* 

23-1 

39-39* 

23-1 

39-45* 

14-129# 






14-500 

14-583 

14-595# 





13-118 

13-399 

13- 130 

14- 54 

13- 150 

14- 54 

13- 183 

14- 161 

13- 192 

14- 163 

13- 224 

14- 188 

13-173 

13-174 

13-242 

13-243 

13-277 

13-278 

13-383 

13-318 

13-384 

13-366 

14-54 

13-385 


23-1* 23-1* 23-1* 


13- 248 13-261 13-283 

14- 240 14-250 14-326 

13-386 14-54 
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D 15 


SEQ 0185 


GETREG 

4-307# 





37-65 

GETREQ 

35-69 

35-248 

36-206 

36-284 

37-51 

GETSUR 

10-90 

32-: 51# 



10-58 

10-69 

GNS 

5-1 

5-1 

10-6 

10-37 


25-1 

25-1 

25-1 

25-1 

25-1 

25-1 


25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

GO 

4-127# 





32-<20 

GT.PR1 

32— <1 6# 

32-<20 

32-<20 

32-<20 

32-<20 

GT.PR2 

32-<30# 

32-<41 

32-=69 

32-=79 

32— ?42 


GT.PRH 

11-12 

32— <1 5# 





GTSWR 

10-37 

25-1# 



32-<99 

32-=02 

GTTST1 

32-<28 

32-<33# 

32-<72 

32-<85 

GTTST2 

32-<4 7# 

32-=52 





GTTST3 

32-<50 

32— <55 

32-=22# 

32-=23# 



GTTST4 

32-<58 

32-<8 2 

32— =19 



GTTST5 

32-=24 

32-=59# 





GTTST6 

32— =61 

32— =71# 

32-309 




HCE 

4-158# 

32-268 




HCI 

4-258# 






HCRC 

4-159# 






HT 

4-80 # 

19-1 

19-1 




IAE 

4-161# 




17-1 

17-1# 

IBSAVE 

17-1 

17-1 

17-1 

17-1 

IC 

9-9# 

13-122 

13-129 

13-153 

13-202 

13-223 

IE 

4-84# 






ILF 

4-151# 






ILR 

4-152# 






INCCYL 

32-805# 






INCEC 

18-41 

32-6# 





INCSK 

13-120# 

13-124 





INCTRK 

32-788# 






IOTVEC 

4-80# 

10-32* 

10-32* 




IR 

4-109# 




14-445 

14-472 

I SR 

14-108 

14-199 

14-281 

14-369 

IT 

9-12# 

32-790 





ITEM41 

8-234# 

18-37 





I VC 

LBC 

LC 

4-278# 

4-276# 

9-8# 

13-49 

13-70 

13-70 

13-87 

13-123 

13-327 

13-332 

13-397 

13-401 

14-183 

14-247 

LDCMD 

12-36 

32-209# 




41-39 

LF 

4-80# 

15-1 

19-1 

19-1 

41-38 

LKS 

7-0# 

32-85 

32-117* 




UV 

7-0# 

32-115* 

32-116* 




LOOEV 

10-127 

41-23# 

32-130# 




LOOFLT 

11-11 

11-20 


13-170 

13-239 

LOOPRH 

13-44 

32-182# 

13-79 

13-109 

13-141 



LOP.CK 

32-244 

32-277 

32-318 

32-443 

32-453# 


LP.AVL 

10-88 

32-46# 





LPB 

7-0# 

17-1 





IPS 

7-0# 

17-1 

32-49 




LPTAVL 

7-0# 

17-1 

32-46* 

32-50* 



LS 

9-14# 

13-83 





LSC 

4-277# 






LSIT 

4-171# 







37-100 

37-107 

38-178# 






10-75 

25-1 

25-1 

15-1 

25-1 

32-; 53 

N 

V 

1 1 I 

liMAfNI 

f\JPO 

15-1 

25-1 

32-<33 

15-1 

25-1 

32->05 

18-52 

25-1 

18-66 

25-1 

25-1 

25-1 

3 2-<22 

3 2-<22 







32-=29 

32-=48 

32-=57 

32-=64 

32-=74 

32-=94 




17-1* 

13-255 

17-1* 

13-256 

17-1* 

13-303 

13-396 

13-400 

32-807 



14-493 

14-520 

14-546 

32-597 

34-32 

36-3# 



13- 125 

14- 333 

13- 158 

14- 440 

13- 203 

14- 485 

13- 205 

14- 487 

13- 213 

14- 537 

13-249 

32-805 

13-257 

32-808 

13-284 

32-810 

41-40 

41-41 

41-44 






13-274 

13-316 

13-380 

14-23 

14-140 

14-221 

14-305 

14-388 
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1ST 

LSTRK 

LT 

N.DP40 

N.DP41 

N.DP42 

N.DP44 

N.DP50 

N.DPID 

NA80VE 

NBCLOW 

NCLK 

NCPE 

NDF 

NEASUR 

HI 

HOC 

NON 

HOL 

NPE 

NRD 

wmcsi 

wwvec 

NS 

NSC 

NSORIV 
NSEN 
NSER 
NSG.CS 
NSG.EQ 
NSG.FC 
NSG.FS 
NSG.FT 
NSG.IC 
NSG.IT 
NSG.LC 
NSG.LS 
NS5.LT 
NSG.PA 
NSG.R 
NSGOUS 
; NSG11X 
| NSG12X 
NSG13X 
NSG14X 
NSGAVG 
NSGB01 
NSGB02 
NSGB04 
NSG805 
NSGB06 
NSGB08 
NSGB09 
| NSGB14 
NSGHAX 
NSGNIN 


4-142# 


7-0# 

32-197* 

9-11# 

13-85 

31-25# 

31-46 

31-30 

31-37# 

31-36 

31-41# 

31-48 

31-53# 

31-23 

31-57# 

14-583 

30-31 

32-752 

41-51# 

32-742 

41-50# 

4-204# 


4-89# 


4-199# 


14-583 

41-44# 


4-195# 

4-201# 

4-236# 

4-144# 

4-111# 

4-203# 


13-362 32-788 32-791 32-793 


31-14# 


39-21 

39-53# 


39-28 

4-198# 

4-194# 

39-54# 

41-32# 

12-47 

4-205# 

4-200# 

32-16 

32-; 54 

41-14# 


32->36 

41-13# 


9-41 

41-4# 


9-47 

41-10# 


9-44 

41-7# 


9-43 

41-6# 


9-46 

41-9# 


9-42 

41-5# 


9-48 

41-11# 


9-45 

41-12# 

41-8# 


9-40 

41-3# 

32-702 

14-583 

32-697 

7-0 

7-0 

41-59# 

7-0 

41-60# 


7-0 

41-61# 


7-0 

41-62# 

41-48# 

14-583 

32-755 

7-0 

43-10# 


7-0 

43-9# 


7-0 

43-8# 


7-0 

43-7# 


7-0 

43-6# 


7-0 

43-5# 


7-0 

43-4# 


7-0 

43-3# 


32-698 

32-745 

41-47# 

32-694 

32-735 

41-46# 


32- 7 44 32-747 32-754 32-764 41-49# 


J 
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HSGNOT 

32-777 

41-54# 





HSGSCH 

32-771 

41-52# 

41-53# 




HSGSEK 

14-583 

32-769 


13-171 

13-240 

HSGTST 

13-45 

41-31# 

13-80 

13-110 

13-142 



MUR 

4-202# 






HUP 

4-196# 






HXF 

4-112# 






MX SEEK 

7-0 

41-41# 





MXSTAl 

7-0# 

13-199 

13-220 




MXUNOW 

33-173# 

35-159 





NBA 

4-238# 





14-483* 

NCI 

9-17# 

14-436* 

14-437* 

14-438 

14-449 

NC2 

9-18# 

14-438* 

14-439* 

14-440 

14-460 

14-483 

NED 

4-115# 






NEH 

4-114# 






NOASSY 

4-9# 

4-44 

4-57 

9-182 

11-36 

32-139 

NOCLOK 

11-75 

41-29# 





NOORVS 

12-10 

41-35# 





NONE 

11-48 

41-26# 





NOTEST 

11-17 

41-36# 





NOTPRS 

10-114 

41-20# 





NOTRM 

10-111 

41-22# 





NOTSAF 

10-120 

41-21# 





OBCK 

4-208# 






OBEN 

4-207# 






OCC 

4-189# 






OFD 

4-256# 






OFFSET 

4-296# 






OM 

4-137# 






ONECYL 

7-0 

41-39# 





OPE 

4-279# 






OPI 

4-164# 






OPN.1 

32-=88# 

32->04 

32-733 




OPN.2 

32-=86 

32-=92 

32-=96# 



32->06 

OPN.CT 

32-=85# 

32-=88* 

32-=91 

32-=96 

32-=98 

OPN.N1 

32— >55 

32-730# 





OPN.N2 

32->47 

32-731# 





OPN.X1 

32->55 

32-735# 





OPN.X2 

32->5? 

32-736# 




32-=43* 

OPNFLG 

7-0# 

32-<44* 

32-<45* 

32-=37* 

« 

ii 

i 

r\j 

OPNPRM 

32— >1 4 

32->20# 

32->24 




OPNTST 

32-=54 

32-=56 

32-=66 

32-=68 

32-=76 

32-=78 

OPT 

35-34 

35-67# 

36-38 

36-247 

36-290 


OR 

4-110# 






PACK 

4-299# 






PAR 

4-154# 






PAT 

9-15# 

32-195 





PDA 

4-180# 






PERFEX 

36-69 






PFECH 

18-29 

18-107# 





PF ECH1 

18-107 

18-108# 





PFECH2 

18-107 

18-109# 





PFECH3 

18-107 

18-111# 





PFECM4 

18-107 

18-112# 





PFTSTN 

18-27* 

18-111 

18-115# 





13 


F 15 


SEO 0187 


13- 275 13-317 13-381 14-24 14-141 14-222 14-306 14-389 

14- 489* 14-490* 14-508 14-531 14-532* 14-533 14-535 

14-484* 14-485 14-487* 14-488* 14-489 14-497 14-531* 

32-331 32-826 32->28 32->59 


32-=53 32— =55 32-=65 32-=67 32-=75 3 2-=77 32->03 

32-=83# 
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PGE 

PGM 

PHA 

PIP 

PIRQ 

PIRQVE 

PKB 

PKC 

PKCS 

PKV 

PLFS 

POPOUE 

PRO 

PR1 

PR2 

PR3 

PR4 

PR5 

PR6 

PR 7 

PRM 

PRWO 

PRM1 

PRM10 

PRM1T 

PRM12 

PRM13 

PRM14 

PRM15 

PRM2 

PRM3 

PRM4 

PRM5 

PRM6 

PRM 7 

PRBLNT 

PRMMSG 

PRMPT 

PS 

PSEL 

PSW 

PURVEC 

OORV 

R6 

R7 

RD.ADR 

RO.RM 

RD.RM1 

RD..1M3 

RD.RM4 

RD.WRD 

ROC HR 

RDLIN 


4-113# 

4-141# 

4-179# 

',- 145 # 

4-80# 

4-80# 

7 - 0 # 

7-0# 

7-0# 

14-335* 

7-0# 

4-182# 

35-80 

4 - 80 # 

4-80# 

4-80# 

4-80# 

4-80# 

4-80# 

4-80# 

4-80# 

9-4# 

9-21 

9-24 

9-24 

9-24 

9-24 

9-24 

9-24 

9-24 

9-24 

9-24 

9-24 

9-24 

9-24 

9-24 

9-28# 

9-40# 

9-21# 

4-80 

35- 11 
4-88# 
4-80# 
4-80# 

33- 95# 
4-80# 
4-80# 

38-11* 

34- 83 

36- 208 
38-13# 
38-20 
38-22 
38-15# 
22-1 
25-1# 


14-77* 

14-476 

14-78* 

14-337* 

14-75* 


14-86* 

14-524 

14-81* 

14-347* 

14-167* 


14-169* 

32-652 

14-88* 

14-349* 

14-244* 


14-246* 14-258* 
32-654 32-655 


14-90* 

14-361* 

14-330* 


14-99* 

14-455* 

14-456* 


35-131 35-220 36-241 38-190# 


10-35 

32-187 
9-71# 
9-79# 
9-143# 
9-152# 
9-159# 
9-165# 
9-171# 
9-1 77# 
9-90# 
9-99# 
9-108# 
9-117# 
9-126# 
9-135# 
13-352 
32->33 
32-155 
4-80# 

35-12* 


38-131 

10-32 

38-12* 

34-96 

36-212 

38-23# 
38*25# 
38-16 
25-1# 
32-; 83 


32-190* 32— >1 0 
32-134 


32->20 32-750 


32-148* 32-149* 32-152* 32-153* 


32-186 32->08 
10-95* 12-31* 
35-58* 35-68 


38-149* 38-163 
10-32* 10-32* 

38-14# 

34-100 35-144 

37-41 37-86 


32-?51 

14-100* 14-192* 
35-114* 


38-165* 38-179 


35-187 

38-10# 


35-198 

38-42 


32— <1 8 32-<34 32->39 




H 



SEQ 0189 


40-105 


14-277 

32-=93 

14-340 

32-741 

14-352 

32-767 

V-365 

34-54 

14-467 

35-52 

14-515 

35-55 

14-583 

35-115 

32-268 

40-115 

45-16 

45-22 

45-26 

32-270 

40-130# 

45-18 

45-22 

45-26 

32-273 

45-12 

45-18 

45-23 

45-26 

32-307 

45-12 

45-18 

45-23 

32-309 

45-12 

45-19 

45-23 

32-311 

45-12 

45-19 

45-25 

32-314 

45-12 

45-19 

45-25 

35-134 

35-154 

35-172 

36-5 

37-39 

38-11 

38-17 

34-75* 

36-226 

34-74* 

38-71* 

34-81 

37- 86 
34-76 

38- 77 

34- 93 
38-42 

35- 29* 
38-112* 

35-72 

35-135* 

38-117 

35-87 

35-155* 

35-148 

35-173* 

35- 166 

36- 24* 

14-508* 

14-465 

32-615* 

14-513 

33-191# 

33-182# 

35-143 

34-96 

35-157 

35-74 

35- 183 

36- 208 

35- 194 

36- 253 

34-100 

32-314 

45-4 

36-44 

32-506 

45-4 

36-212 

33-194# 

45-4 

36-254 

36-47 

45-5 

36-255 

45-5 

45-5 

45-5 

35-200 

36-50 

36-121 

36-123 




14-369* 

14-445* 

14-457* 

14-472* 

14-493* 

14-505* 

14-520 


13-274 13-316 13-380 14-23 14-140 14-221 14-305 



SE3 0190 


v-ZRNGAu 1M80 FCTNL °T4 HACRO V04.00 15-JAN-82 07:05:59 PAGE S-16 
CROSS REFERENCE TABLE (CREF V04.00 ) 


RTC 
R TURN 
SAVCSW 
SAVEFG 
SAVREG 


SC 

SCO 

SCI 

sen 

SC12 

SC13 

SC2 

SC3 

SC4 

SC5 

SC6 

SC8 

SCOPE 

SCTRWC 
SEARCH 
SEC. OS 
SEC.RO 
SEEK 

SEEKFG 

SEKCNT 

SEKTHR 

SELORV 

SERIAL 

SET. IE 

SETFOR 

SETVEC 

SHUT 

SKCNT 

SKI 

SKIP 

SKSIZ 

SKTIH 

SLASH 

SP11A 

SP11B 

SP12 

SP13 

SP14 

SPTYP 

SRCHOO 

SRCHWT 

SRTDRV 

SRTINT 

SRVCLK 

SSE 

SSEI 


4-297# 

15-1 

7-0# 

10-94* 

14-84 

14-593 

37-9 

36-9 

4-242# 

4-243# 

T*, *1 

l * • 

36-189 

36-180 

4-244# 

36-168# 

36-170# 

36-169 

36-185 

36-208 

4-80# 

14-595 

4-313# 

4-300# 

7-0# 

7-0# 

4-292# 

14-334 

33- 140# 
7-0# 
7-0# 
4-309# 

12-50 

34- 48 
4-308# 

10-92# 

22-1 

7-0# 

4-280# 

36-52 

7-0# 

7-0# 

14-583 

32- :82 
7 - 6 # 
7-0# 
7-0# 
7-0# 
7-0# 

14-128 

14-31 

33- 112# 
10-99 
10-81 

32-105 

4-274# 

4-257# 


15-3# 

11-6 

33-132# 

14-93 

18-12 

38-67 

36-153# 


36-237# 

36-252# 

36-183 

36-172 

36-192 

36-178# 

36-203# 

36-212 

13-70 


14-79 

32-233* 

32-567* 

13- 319 

14- 346 

34-19 


41-30# 

34- 78 
12-42 

22-1 

14-414* 

14-469 

36-65# 

14-416* 

14-410* 

14-583 

32->38 

14-71 

14-71 

14-204 

14-286 

14-374 

14-128 

14-148 

35- 96 
11-3# 
10-84# 
32-115 

36- 48 
36-51 


11-10* 

35-222 

14-103 

25-1# 

38-130 

32-;59* 

36-$8 

14-177 

27-1 

36-243 

14-195 

30-24 

14-254 

32-627 

14-266 
32— <1 5 

14-277 

32-=83 

14-340 

32-749 

14-352 

34-14 

14-365 

35-14 

14-467 

35-67 

14-515 

35-242 

14-548 

36-4 

36-264# 












36-197 

36-199 

36-227 

36-233 

36-248 

36-291 







36-216 

13-96 

36-226 

13-132 

36-231# 

13-160 

36-260 

13-226 

13-263 

13-305 

13-367 

13-403 

14-129 

14-205 

14-287 

14-375 

14-87 

32-264* 

45-9 

13- 319 

14- 408 
35-98 

32-305* 

14-54 

14-408 

32-440* 

14-54 

14-447 

32-568* 

14-161 

14-447 

32-611* 

14-161 

14-461 

45-8 

14-171 

14-495 

45-9 

14-240 

14-495 

45-10 

14-240 

14-509 

45-21 

14-248 

32-214 

45-24 

14-260 

32-215 

14-326 

14-326 

35-42 

12-44 

35-113 

13-46 

35-261 

13-319 

36-159 

14-54 

38-110# 

14-161 

14-240 

14-326 

14-408 

14-447 

14-495 



22-3# 

14-415* 

14-517 

14-431 

32-240 

14-480* 

32-273 

14-481* 

32-314 

14-528* 

14-529* 

14-583 

14-583 

14-583 




14-417* 

14-413* 

14-583 

41-16# 

14-128 

14-128 

14-419 

14-413* 

14-583 

14-427 

14-413* 

14-583* 

14-439 

14-476* 

14-583* 

14-484 

14-479* 

14-490 

14-479* 

14-532 

14-479* 

14-539 

14-524* 

14-527* 

14-527* 

14-527* 

14-583 

14-204 

14-240 

35-100* 

14-286 

14-313 

35-167* 

14-374 

14-396 

36-224* 

32-684# 

32-595# 

36-238 










32-120# 

36-122 



SEQ 0191 
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ST.CLK 10-92 14-107 14-198 14-280 U-368 14-444 14- 

ST.LCL 32-87 32-112# 

STACK 1 3 4-|o# To-32 2# 13-70 13-93 13-119 13-126 13- 

13-341 13-393 H-72 14-162 14-241 14-327 14- 

STALL 13-190 13-196 13-211 13-217 32-286 32-327 32- 

STALLO 7-0# 13-184* 13-191 13-197 13-198* 13-199 13- 

STALL1 7-0# 32-287 32-328 

STALL2 7-0# 


0-92 

>2-87 

2-81 

14-107 

32-112# 

32-102# 

14-198 

14-280 

U-368 

14-444 

14-471 

14-492 

14-519 

14-545 

15-5 

32-72# 

4-80# 

3-341 

3-190 

10-32 

13-393 

13-196 

13-70 

H-72 

13-211 

13- 93 

14- 162 
13-217 

13- 119 

14- 241 
32-286 

13- 126 

14- 327 
32-327 

13- 151 

14- 409 
32-528# 

13-154 

15-3 

13-185 

13-206 

13-250 

13-286 

7-0# 

7-0# 

13-184* 

32-287 

13-191 

32-328 

13-197 

13-198* 

13-199 

13-201* 

13-212 

13-218 

13-219* 

13-220 

13-222* 


13-339 


START 

10-20 

10-28# 




START1 

5-1 

10-11 

10-18# 


22-5 

START2 

5-3 

10-25# 

11-52 

12-11 

START3 

5-5 

10-15# 




START4 

5-7 

10-22# 




STATBL 

7-0# 

18-50 




STKLMT 

4-80# 





STO 

37-16 

37-37# 

37-88 



ST01 

37-44# 

37-85 

37-77# 


ST02 

37-43 

37-45 

37-47 


ST03 

37-79 

37-89# 


37-95# 


ST05 

37-41 

37-59 

37-86 


ST06 

37-81 

37-97# 




ST07 

37-83 

37-105# 




ST08 

37-104 

37-111# 



37-102 

ST09 

37-76 

37-92 

37-94 

37-96 

STRT1A 

10-16 

10-19# 




STRT2A 

10-23 

10-26# 

14-243 

14-329 

32-627# 

STRTMR 

14-74 

14-166 

SVADR 

SVRH70 

7-0# 

14-84 

14-93 

14-103 

14-177 

14-195 

35-224 

36-30 

36-55 

36-214 

36-245 

SVSTAT 

7-0# 

18-47 

32-482* 



SWO 

4-80# 





SWOO 

4-80 

4-80# 




SW01 

4-80 

4-80# 




SW02 

4-80 

4-80# 




SW03 

4-80 

4-80# 




SUCK 

4-80 

4-80# 


32-113 


SW05 

4-80 

4-80# 

32-103 

32-93 

SW06 

4-80 

4-80# 

14-58 

14-109 

SWO 7 

4-80 

4-80# 

32-209 

32-; 51 


SU08 

4-80 

4-80# 

17-1 



SW09 

4-80 

4-80# 




SU1 

SW10 

SW11 

SW12 

4-80# 

4-80# 

4-80# 

4-80# 

13-45 

13-80 

13-110 

13-142 

14-306 

14-389 

14-424 



SW13 

4-80# 

32-529 




SW14 

4-80# 

32-284 

32-325 




4-80# 

4-80# 

4-80# 

4-80# 

4-80# 


37-109 37-113# 


14-254 

36-286 


14-266 

37-53 


14-277 

37-112 


14-340 

38-67# 


14-352 14-365 14-467 14-515 14-593 


32-685 32-724 


13-171 13-182 13-240 13-275 13-317 13-381 14-24 14-141 14-222 
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18 


K 15 


JL u 


10-37 

13-45 

13-80 

13-110 

13-142 

13-171 

13-240 

13-275 

14-389 

14-424 

17-1 

17-1 

17-1 

17-1 

17-1 

17-1 

23-1 

23-1* 

23-1* 

23-1* 

23-1* 

32-453 

32-577 

32-685 


36-265* 36-272* 37-12 37-H* 37-68* 37-93* 37-99* 37-105* 


32-611* 45-8 45-9 45-10 45-13 45-21 45-24 

36-66* 37-48 37-62 37-74* 




SEO 0193 


13-141 
3 2 -< 27 * 


10-102 

11-49 

13 - 142 

14 - 583 

18 - 52 

19 - 1 
22-1 
32-687 
32-745 
32— <1 7 


13-110 

32-17 


13-170 

13-239 

13-274 

32 -< 42 * 

32 -< 43 * 

32 -< 49 * 

10-104 

10-111 

10-114 

11-65 

11-69 

11-75 

13-171 

13-240 

13-275 

14-583 

14-583 

14-583 

18-58 

18-59 

18-63 

20-1 

21-1 

22-1 

22-1 

22-1 

22-1 

32-688 

32-690 

32-694 

32-747 

32-750 

32-752 

32-<33 

32->05 

32->07 


13-142 13-171 13-240 

32->06 


13-316 

13-380 

14-23 

32 — < 54 * 

32 -< 80 * 

32 — = 1 4 * 

10-117 

10-120 

10-127 

12-10 

12-46 

12-47 

13-317 

13-381 

14-24 

14-583 

15-1 

15-1 

18-66 

18-69 

18-70 

22-1 

22-1 

22-1 

22-1 

22-1 

22-1 

32-697 

32-698 

32-702 

32-754 

32-755 

32-764 

32->32 

32->34 

32->36 

13-275 

13-317 

13-381 



M 15 


SEQ 0194 
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WRT.R4 

URT.R5 

URT.RM 

38-55 

38-57 

34-93 

38-58# 

38-59# 

34-95 

35-87 

35-141 

35-143 

35-146 

35-148 

35-157 

35-164 

35-166 

35-178 35-183 

35-200 

35-219 

35-230 

36-117 

36-119 

36-123 

36-126 

36-216 

36-226 

38-36# 


URT.UD 

URTHO 

XXDP 

38-36* 

4-304# 

7-0# 

38-40 

10-49* 

38-47* 

10-52* 

38-50# 

10-53 

10-55* 

10-60 

10-71 

10-123 

10-125 

11-27 

11-29 


35-189 


35-194 
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N 15 


SSCMRE 

5-198# 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 






SSCMTM 

5-198# 

6-0 

6-0 

6-0 









SSESCA 

SSNEUT 

4-80# 

4-80# 

13-44 

13-79 

13-109 

13-141 

13-170 

13-239 

13-274 

13-316 

13-380 

14-23 

14-140 

SSSET 

14-388 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1 

25-1# 

SSSETM 

10-32 

10-32# 












SEQ 0195 


14-221 14-305 


SSSKIP 

.SACT1 

.SAPTB 

.SAPTH 

.SAPTY 

• SCATC 
.SCMTA 
.SDB2D 

• SEOP 
.SERRO 
.SR AND 
.SRDDE 
.SRDOC 
.SREAD 
.SSAVE 
. SSB2D 
.SSCOP 
.SSUPR 
•STRAP 
.STYPD 
.STYPE 
.STYPO 
.EQUAT 
.HEADE 
.SETUP 
.SURHl 
.SWRLO 
CKCHR 
CKO 1 6 
CKNUM 
COWMEN 
COMND 
DO 


DODTA 

ENDCOM 

ENDPAS 

ER.NDX 

ERRCAL 

ERREND 

ERROR 


ERRTYP 

ESCAPE 

EXIT 


4-80# 

4-35# 

4-36# 

4-36# 

4-36# 

4-33# 

4-33# 

4-35# 

4-33# 

4-33# 

4-35# 

4-34# 

4-34# 

4-34# 

4-35# 

4-35# 

4-35# 

4-35# 

4-33# 

4-34# 

4-33# 

4-34# 

4-33# 

4-34# 

4-34# 

4-33# 

4-41# 

9-589 # 

9-599# 

9-609# 

4-80# 

9-530# 

9-537# 

13- 214 

14- 161 
9-550# 
4-80# 

14-597# 

9-554# 

33-1# 

9-582# 

4-80# 

14-516 

32-305 

39-47 

9-573# 

4-80# 

4-11# 

14-595 


5- 9 

6 - 0 
5-12 

16-1 

5-1 

5-198 

27-1 

15-1 

17-1 

29-1 


22-1 

24- 1 
26-1 
23-1 
28-1 

25- 1 
21-1 

19- 1 

20 - 1 
4-80 
4-40 
4-315 
4-41 


6 - 0 # 


4-42 
32-; 85 

3 2-<22 
32-; 87 

4-43 

32-<20 

32->55 

32— >41 

32-956 

32-963 

32-968 

32-A1 3 







r\io 

i i i i 

*—*—«—*— 

13-46 

12- 45 

13- 254 

14- 326 

13-319 

13-70 

13- 292 

14- 408 

14-54 

13-70 

13- 294 

14- 453 

14-161 

13-94 

13- 296 

14- 501 

14-240 

13-95 

13-298 

32-575 

14-326 

13-121 

13-300 

14-408 

13-128 

13-302 

14-447 

13-152 

13-340 

14-495 

13-156 

13-360 

13-187 

13-394 

13-193 

13-395 

13- 208 

14- 54 

15-1 

32-233 

36-158 

17-1 

12-25 

14-594 

32-305 

32-264 

36-196 

32-305 

36-198 

32-440 

32-611 









14-85 

23-1 

32-305 

14-94 

32-233 

32-313 

14-104 

32-233 

32-440 

14-178 

32-233 

32-440 

14-196 

32-233 

32-440 

14-255 

32-239 

32-440 

14-267 

32-264 

32-573 

14-278 

32-264 

32-611 

14-341 

32-264 

32-611 

14-353 

32-264 

32-611 

14-366 

32-272 

32-611 

14-468 

32-305 

32-611 

17-1 

14-54 

13-70 

14-161 

13-96 

14-240 

13-132 

14-326 

13-160 

14-408 

13-226 

32-232 

13-263 

32-263 

13-305 

32-304 

13-367 

32-439 

13-403 

32-572 

14-129 

32-610 

14-205 

14-287 

14-375 
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B 16 


SEO 0196 


GETPRI 

GETSUR 

4-80# 

4-80# 

10-37 

10-37# 

13-151 

LOOP 

9-541# 

13-119 

13-126 

MORE.S 

9-512# 

13-44 

13-79 

13-109 

MORE T A 

14-388 

5-15# 

6-0 

8-1# 

13-79 

MSG 

13-37# 

13-44 

13-72# 

13-307# 

13-316 

13-369# 

13-380 

MULT 

NEWTST 

4-80# 

4-80# 

13-44 

13-79 

13-109 

POP 

14-388 

4-80# 

16-1 

16-1 

21-1 

PUSH 

4-80# 

16-1 

16-1 

16-1 

READ 

33-8# 

34-83 

34-96 

34-100 

36-208 

36-212 

37-41 

37-86 

REPORT 

4-80# 

9-482# 

14-204 

14-286 

SAV.RH 

9-466# 

14-84 

14-93 

14-103 

SET.TN 

14-593 

9-487# 

13-44 

13-79 

13-109 

SETPRI 

SETTRA 

14-388 

4-80# 

25-1 

22-1 

25-1 

25-1 

25-1 

SETUP 

SKIP 

SLASH 

4-80# 

4-80# 

4-80# 

10-32 

13-1 

13-25 

13-29 

STARS 

4-80# 

4-289 

5-9 

5-12 

13-79 

13-109 

13-109 

13-141 


13-380 

14-23 

14-23 

14-140 


19-1 

20-1 

21-1 

22-1 

SWRSU 

29-1 

4-80# 

33-36 

10-32 

10-32# 


TRMTRP 

TSTTYP 

25-1# 

4-17# 

13-45 

13-80 

13-110 

TYPB2D 

14-389 

9-474# 

32-736 

32-741 

32-743 

TYPBIN 

TYPDEC 

TYPENO 

7YPNAM 

TYPNUH 

TYPOCS 

4-80# 

4-80# 

14-602# 

4-80# 

4-80# 

4-80# 

18-86 

15-1 

10-37 

10-103 

11-62 

12-48 

14-141 

14-222 

14-306 

14-389 

TYPOCT 

4-80# 

15-1 

18-84 

22-1 

TYPTXT 

4-80# 

10-6 

10-58 

10-69 

WRITE 

32- >05 

33- 18# 

34-93 

34-95 

35-87 

35-194 

35-200 

35-219 

35-230 


13-154 

13-185 

13-206 

13-250 

13-286 

13-141 

13-170 

13-239 

13-274 

13-316 

13-98# 

13-109 

13-134# 

13-141 

13-162# 

14-13# 

14-23 

14-131# 

14-140 

14-207# 

13-141 

13-170 

13-239 

13-274 

13-316 

24-1 

29-1 

32-173 

32-199 

32-778 

21-1 

24-1 

29-1 

32-130 

32-182 

35-144 

35-187 

35-198 

36-25 

36-44 

38-42 

14-374 

14-177 

14-195 

14-254 

14-266 

14-277 

13-141 

13-170 

13-239 

13-274 

13-316 

25-1 

25-1 

25-1 

25-1 

25-1 


13-35 

14-3 

14-11 



5-12 

5-12 

6-0 

6-0 

6-C 

13-141 

13-170 

13-170 

13-239 

13-239 

14-140 

14-221 

14-221 

14-305 

14-305 

22-1 

22-1 

22-1 

22-1 

23-1 


13- 

-142 

13-171 

13-240 

13-275 

13-317 

32- 

-746 

32-751 

32-753 

32-763 

32-766 


13-45 

15-1 

32-;81 

13-80 

32-17 

13-110 

32->06 

13-142 

13-171 

10-^5 

15-1 

15-1 

15-1 

15-1 

35-141 

35-143 

35-146 

35-148 

35-157 

36-117 

36-119 

36-123 

36-126 

36-216 


13-339 

13-380 

13- 341 

14- 23 

14-140 

14-221 

14-305 

13- 170 

14- 221 

13- 228# 

14- 289# 

13- 239 

14- 305 

13- 265# 

14- 377# 

13- 274 

14- 38o 

13-380 

14-23 

14-140 

14-221 

14-305 

32-722 

36-47 

36-50 

36-103 

36-121 

36-155 

14-340 

14-352 

14-365 

14-467 

14-515 

13-380 

14-23 

14-140 

14-221 

14-305 

25-1 

25-1 

25-1# 



8-219 

13- 274 

14- 388 
24-1 

8-232 

13- 274 

14- 388 
25-1 

13-44 

13-316 

15-1 

26-1 

13-44 

13-316 

16-1 

27-1 

13-79 

13-380 

17-1 

28-1 

13-381 

14-24 

14-141 

14-222 

14-306 

32->37 





13-240 

13-275 

13-317 

13-381 

14-24 

18-52 

18-66 

32-; 53 

32— <1 7 

32-<33 

35-164 

35-166 

35-178 

35-183 

35-189 


36-226 


